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PREFACE 

THIS DOCUMENT, WHICH DESCRIBES THE FORMAL STRUCTURE OF THE B6700/ 
B7700 EXECUTIVE SYSTEM PROGRAMMING LANGUAGE (ESPOL) , IS INTENDED 
FOR THOSE ALREADY EXPERIENCED WITH ALGOL AND THE SPECIFICATIONS 
OF THE B6700/B7700 INFORMATION PROCESSING SYSTEM, 

THIS DOCUMENT FIRST PRESENTS A REVIEW OF THE "BACKUS-NAUR FORM," 
NEXT, THE CHARACTER SET, BASIC SYMBOLS, AND THE BASIC AND GENERAL 
COMPONENTS OF THE LANGUAGE ARE DISCUSSED. BEGINNING WITH SECTION 
6, THE SYNTAX OF ESPOL IS EXPLAINED AS FOLLOWS: FIRST, AN ESPOL 
PROGRAM IS DEFINED, FOLLOWED BY DECLARATIONS, STATEMENTS, AND 
FINALLY EXPRESSIONS. IN THIS WAY, THE READER MAY PROGRESS WORE 
EASILY IN HIS UNDERSTANDING OF ESPOL. FURTHERM)RE, AS AN AD- 
DITIONAL AID, THE MATERIAL IN MANY CASES, HAS BEEN ARRANGED IN 
ALPHABETICAL SEQUENCE. 

FOUR APPENDICES ARE INCLUDED IN THIS DOCUMENT. THESE APPENDICES 
HAVE BEEN DESIGNED TO FURTHER FACILITATE THE READER'S UNDER- 
STANDING OF THE STRUCTURE AND USE OF THE ESPOL LANGUAGE. 

APPENDIX A IS AN ORDERED LIST OF COMPILER ERROR MESSAGES AND 
ASSOCIATED ESPOL PROCEDURES. 

APPENDIX B CONTAINS EXAMPLES OF MACHINE-LANGUAGE CODE GENERATED 
FOR VARIOUS COMMON CONSTRUCTS. 

APPENDIX C IS A LOGICAL-ORDER LISTING OF THE COMPLETE ESPOL 
LANGUAGE SYNTAX TREE. 

APPENDIX D IS AN ALPHABETICAL INDEX OF BACKUS- NAUR CONSTRUCTS AND 
RESERVED WORDS. THE BACKUS- NAUR CONSTRUCTS ARE PRECEDED BY A 
SYNTAX TREE (APPENDIX C) REFERENCE NUMBER. 
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1. INTRODUCTION 



1.1. FUNCTION OF ESPOL 

THE B6700/87700 EXECUTIVE SYSTEM PROGRAMMING ORIENTED LANGUAGE 
(ESPOL) IS USED PRIMARILY IN WRITING THE B6700/B7700 MASTER CONTROL 
PROGRAM (MCP) . 

1.2. ESPOL COMPARED WITH ALGOL 

WHILE IN MANY WAYS ESPOL IS SIMILAR TO ALGOL, ESPOL IS DESIGNED TO 
FACILITATE SUCH FUNCTIONS AS INTERRUPT HANDLING, STORAGE 
ALLOCATION, AND OVERLAY FUNCTIONS PECULIAR TO THE MCP. 

1.3. ESPOL AND THE B6700/B7700 

BECAUSE B6700/B7700 ESPOL IS UNIQUELY SUITED TO THE B6700/B7700 
INFORMATION PROCESSING SYSTEM, CERTAIN CONSTRUCTS ARE PROVIDED TO 
ALLOW MANIPULATION OF HARDWARE FUNCTIONS. 

1.4. THE METALANGUAGE 

THE SYNTAX OF B6700/B7700 ESPOL IS DESCRIBED BY THE USE OF THE 
BACKUS-NAUR FORM (BNF) METALANGUAGE, WHICH IS A SYSTEM OF 
METALINGUISTIC SYMBOLS AND METALINGUISTIC FORMULAS DISCUSSED BELOW. 

l.H.l. METALINGUISTIC SYMBOLS 



< > 



LEFT AND RIGHT BROKEN BRACKETS ARE USED TO CONTAIN ONE OR MORE 
CHARACTERS REPRESENTING A METALINGUISTIC VARIABLE WHOSE VALUE 
IS GIVEN BY A METALINGUISTIC FORMULA. 
= THE SYMBOL ":: = '• MEANS "IS DEFINED AS". IT SEPARATES THE 
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METALINGUISTIC VARIABLE ON THE LEFT OF A METALINGUISTIC 
FORMULA FROM THE DEFINITION OF THE METALINGUISTIC VARIABLE. 

/ THE SYMBOL "/" MEANS "OR". IT SEPARATES MULTIPLE DEFINITIONS 
OF A METALINGUISTIC VARIABLE. 

C \ THE SYMBOLS " ^" AND " ii " ARE USED TO ENCLOSE METALINGUISTIC 
ENGLISH-LANGUAGE EXPRESSIONS. THESE EXPRESSIONS ARE USED ONLY 
WHEN IT IS IMPOSSIBLE OR IMPRACTICAL TO USE A METALINGUISTIC 
FORMULA. 

1.4.2. METALINGUISTIC FORMULAS 



A METALINGUISTIC FORMULA IS A RULE WHICH WILL PRODUCE A 
SYNTACTICALLY CORRECT SEQUENCE OF SYMBOLS. IN A METALINGUISTIC 
FORMULA, ANY MARK OR SYMBOL WHICH IS NOT ONE OF THE DEFINED 
METALINGUISTIC SYMBOLS DENOTES ITSELF. THE JUXTAPOSITION OF THE 
METALINGUISTIC SYMBOLS IN A METALINGUISTIC FORMULA DENOTES THE 
JUXTAPOSITION OF THOSE ELEMENTS IN THE CONSTRUCT SO DEFINED. 

EXAMPLE: 



THE METALINGUISTIC FORMULA: 

<IDENTIFIER> ::= <LETTER> / <IDENTIFIER> <LETTER> / 
<IDENTIFIER> <DIGIT> 

IS READ AS FOLLOWS: AN IDENTIFIER IS DEFINED AS A LETTER, OR AN 
IDENTIFIER FOLLOWED BY A LETTER, OR AN IDENTIFIER FOLLOWED BY A 
DIGIT. 
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a. CHARACTER SET 

THE CHARACTER SET FOR WHICH ESPOL IS DEFINED IS A SUBSET OF THE 

BURROUGHS COMMON LANGUAGE (BCD CHARACTER SET. 

SYNTAX: 



<CHARACTER> ::= <STRING CHARACTER) / <STRING BRACKET CHARACTER) / 

<INVALID CHARACTER) 
<STRING CHARACTER) ::= <LETTER) / <DIGIT> / <SPECIAL CHARACTER) / 

<SINGLE SPACE) 
<LETTER> ::=A/B/C/D/E/F/G/H/ I /J/K/ 

L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z 
<DIGIT) ::= 0/1/3/3/4/5/6/7/8/9 
<SPECIAL CHARACTER) ::=./,/[/]/(/)/+/-/ <SLASH) / 

)/</^/:i/ = /?!/-/jr/&/*/#/@/:/;/$ 
<SLASH) : := / 

<SINGLE SPACE) ::= ^ONE HORIZONTAL BLANK POSITIONi. 
<STRING BRACKET CHARACTER) ::= <QUOTE) 
<QUOTE) : := " 
<INVALID CHARACTER) ::= ? 

SEMANTICS: 



THE INVALID CHARACTER IS EXCLUDED EXCEPT AS A CHARACTER WHICH MAY 
BE PROGRAMMATICALLY PRODUCED. 
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3. BASIC SYMBOLS 

IN GENERAL, SYMBOLS ARE MADE UP FROM A CONTIGUOUS SET OF CHARACTERS 
THE BASIC SYMBOLS OF ESPOL ARE THOSE SYMBOLS WHICH ARE WELL-DEFINED 
WITHIN THE CONTEXT OF THAT LANGUAGE. 



SYNTAX: 

<BASIC SYMBOL) ::= <EMPTY> / <CHARACTER> / <DELIMITER> / 
<LOGICAL VALUE> 

<EMPTY> ::= ^THE NULL STRING OF CHARACTERS^ 

<DELIMITER> ::= <BRACKET> / <DECLARATOR> / <OPERATOR> / 
<SEPARATOR> / <SPEC I F I CATOR> 

<BRACKET> ::=(/)/[/]/"/ BEGIN / END / # 

<DECLARATOR> ::= ARRAY / BOOLEAN / DEFINE / DOUBLE / EVENT / 
FIELD / FORWARD / INTEGER / LABEL / LAYOUT / 
MONITOR / ON / OWN / PICTURE / POINTER / PROCEDURE / 
QUEUE / REAL / REFERENCE / SAVE / USING / WORD 

<OPERATOR> ::= <ARITHMETIC OPERATOR) / <CONCATENATE OPERATOR) / 
<LOGICAL OPERATOR) / <RELATIONAL OPERATOR) / 
<REPLACEMENT OPERATOR) / <SEQUENTIAL OPERATOR) 

<ARITHMETIC OPERATOR) ::=+/-/*/ <SLASH) / DIV / MOD / MUX 

<CONCATENATE OPERATOR) ::= & 

<LOGICAL OPERATOR) ::= AND / EQV / IMP / NOT / OR 



=>/^/=/^/<///IS 

:=-/ :=/-*/ :=♦ 

= CASE / DO / ELSE / FOR / GO / IF / THEN / 



<RELATIONAL OPERATOR) 
<REPLACEMENT OPERATOR) 
<SEQUENTIAL OPERATOR) 

TO 
<SEPARATOR> ::=,/./©/:/;/ <SPACE) / BY / COMMENT / IN / 

NULL / OF / STEP / UNTIL / WHILE / WITH 
<SPECIFICATOR) : : = VALUE 
<LOGICAL VALUE) ::= TRUE / FALSE 



SEMANTICS 
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1. INDIVIDUAL LETTERS DO NOT HAVE INDIVIDUAL MEANINGS EXCEPT IN 
THE CONTEXT IN WHICH THEY ARE USED (AS DEFINED IN THE SYNTAX 
OF THE LANGUAGE ) . 

H. A SPACE MUST SEPARATE ANY TWO OF THE FOLLOWING: 

MULTICHARACTER DELIMITER (EXCEPT -♦,:=* AND :=) 
LOGICAL VALUE 
IDENTIFIER 
UNSIGNED NUMBER 

3. FOR CERTAIN CASES THE REPLACEMENT OPERATOR :=* MAY BE USED TO 
UPDATE VARIABLES; FOR EXAMPLE. THE STATEMENT "W:=W+1; " COULD 
ALSO BE WRITTEN "W:=»+l;" (OR OPTIONALLY, THE OPERATOR -» 
COULD BE USED; E.G., "W-*+l;"). 
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H. BASIC COMPONENTS 



4.1. GENERAL 



BASIC COMPONENTS ARE THE MOST PRIMITIVE CONSTRUCTS OF THE LANGUAGE 

SYNTAX: 

<BASIC COMPONENT> ::= <BASIC SYMBOL> / <IDENTIFIER> / 
<NUMBER> / <STRING> 
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H.2. IDENTIFIERS 



SYNTAX 



<IDENTIFIER> ::= <LETTER> / <IDENTIFIER> <LETTER> / 
<IDENTIFIER> <DIGIT> 

SEMANTICS: 



1. IDENTIFIERS HAVE NO ABSOLUTE MEANING. IDENTIFIERS ARE USED TO 
NAME LABELS, VARIABLES, ARRAYS, PROCEDURES, ETC. 

2. A RESERVED WORD MAY NOT BE USED AS AN IDENTIFIER. 

3. THE MAXIMUM PERMISSIBLE LENGTH OF AN IDENTIFIER IS 63 
CHARACTERS, AND IT MUST CONTAIN NO SPECIAL CHARACTERS. 

4. NO SPACE MAY APPEAR WITHIN AN IDENTIFIER. 

EXAMPLES: 

X 

A5 

G76D3 

NOTHINGTODO 
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4.3. NUMBERS 



SYNTAX 



<NUMBER> ::= <3IGN> <UN3IGNED NUMBER> 

<SIGN> : := <EMPTY> / + / - 

<UNSIGNED NUMBER> ::= <DECIMAL NUMBER> <EXPONENT PART> / 

<DECIMAL NUMBER> / <OCTAL NUMBER> 
<DECIMAL NUMBER> ::= <UNSIGNED INTEGER> <DECIMAL FRACTION> / 

<UNSIGNED INTEGER> / <DECIMAL FRACTION> / <UNSIGNED INTEGER> 
<UNSIGNED INTEGER> ::= <DIGIT> / <UNSIGNED INTEGER> <DIGIT> 
<EXPONENT PART> ::= 9 <INTEGER> / ®® <INTEGER> 
<INTEGER> ::= <SIGN> <UNSIGNED INTEGER> 
<DECIMAL FRACTION> ::= . <UNSIGNED INTEGER> 
<OCTAL NUMBER> ::= ® <OCTAL CONSTANT> 
<OCTAL CONSTANT> ::= <OCTAL DIGIT> / <OCTAL CONSTANT> 

<OCTAL DIG!T> 
<OCTAL DIGIT> ::=0/ 1/2/3/4/5/6/7 

SEMANTICS: 



1. NUMBERS MAY BE INTEGER OR REAL: INTEGERS ARE OF TYPE "INTEGER" 
ALL OTHER NUMBERS ARE OF TYPE "REAL" (EITHER EXPLICITLY OR 
IMPLICITLY -- BY DEFAULT). 

E. AN INTEGER IS A SINGLE-PRECISION OPERAND WITH AN EXPONENT OF 
ZERO. 

3. NUMBERS MAY BE NEGATIVE (-) OR POSITIVE (+). 

4. THE SMALLEST AND LARGEST NUMBERS REPRESENTABLE IN INTEGER, 
REAL, AND DOUBLE PRECISION ARE: 

A. SMALLEST SINGLE PRECISION INTEGER: 
= 1 . 
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= 3 "0000000000000001" 

B. LARGEST SINGLE PRECISION INTEGER: 
= 549755813887. 

= Z"0001111111111771" 
= 8*13 - 1 

C. SMALLEST SINGLE PRECISION REAL: 
= 1 .E7H47352891®-57 

= 3" 17700000000000 01 " 

D. LARGEST SINGLE PRECISION REAL: 
= 4 .313591H667H©68 

= 3"0777777777777777" 
= (8*13 - 1 ) X 8*63 

E. SMALLEST DOUBLE PRECISION INTEGER: 
= 1 . 

= DOUBLE(3"0150000000000000" , 3 " 000000000000000 1 " ) 

F. LARGEST DOUBLE PRECISION INTEGER: 
= 302E31'+54903657293676543. 

= DOUBLE(3"0157777777777777" , 3 " 0007777777777777 " ) 
= 8*26 - 1 

G. SMALLEST DOUBLE PRECISION REAL: 
= 1 . 0©®-29603 

= D0UBLE(3" 1770000000000000" , 3 " 777000000000000 1 " ) 
= 1 .0 X 8*-327B7 

H. LARGEST DOUBLE PRECISION REAL: 

= 1 .94882838205028079124469®®29603 

= DOUBLE(3"0777777777777777" , 3 " 7777777777777777 " ) 

= (8*26 - 1) X 8*32767 

5. THE EXPONENT PART IS A SCALE FACTOR EXPRESSED AS IN INTEGRAL 
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POWER OF 10 



6. NO SPACE MAY APPEAR WITHIN AN UNSIGNED NUMBER. 

7. AN EXPONENT PART WITH A DOUBLE "AT" SIGN "@®" SIGNIFIES AN 
EXTENDED PRECISION VALUE. 

8. AN OCTAL NUMBER MAY HAVE NO MORE THAN 16 OCTAL DIGITS. 
EXAMPLES: 



UNSIGNED NUMBERS 

1354.543 

®67 

1354.5H®68 

27 

l®-43 

DECIMAL NUMBERS 

3. 14 
37 

.57 

INTEGERS 

+ 10 
+ 546 
-62256 
23 

UNSIGNED INTEGERS 
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5 
69 

8 

EXPONENT PARTS 

®68 

@-l45 

® + 54 
DECIMAL FRACTIONS 



.5 
.69 
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4.4. STRINGS 



SYNTAX: 



<STR!NG> ::= <SIMPLE STRING> / <STRING> <SIMPLE STRING> 
<SIMPLE STRING> ::= <NUMERIC STRING> / <ALPHA STRING> 
<NUMERIC STRINO : : = 

<BINARY CODE> <QUOTE> <BINARY STRING> <QUOTE> / 
<QUATERNARY CODE> <QUOTE> <QUATERNARY STRING) <QUOTE> / 
<OCTAL CODE> <QUOTE> <OCTAL STRING> <QUOTE> / 
<HEXADECIMAL CQDE> <QUOTE> <HEXADECIMAL STRING> <QUOTE> 
<BINARY CODE> : : = 1 / 1 / 1 2 / 1 3 / 1 4 / 1 6 / 1 7 / 1 8 / 

120 / 130 / 140 / 160 / 170 / 180 
XBINARY STRINO ::= <BINARY CHARACTER) / <BINARY STRING) 

<BINARY CHARACTER) 
<BINARY CHARACTER) ::= / 1 

<QUATERNARY CODE) : : = 2 / 20 / 24 / 26 / 28 / 240 / 260 / 280 
<QUATERNARY STRING) ::= <QUATERNARY CHARACTER) / 
<QUATERNARY STRING) <QUATERNARY CHARACTER) 
<QUATERNARY CHARACTER) ::= / 1 / 2 / 3 
<OCTAL CODE) ::= 3 / 30 / 36 / 360 
<OCTAL STRING) ::= <OCTAL CHARACTER) / 
<OCTAL STRING) <OCTAL CHARACTER) 
<OCTAL CHARACTER) ::= 0/1/2/3/4/5/6/7 
<HEXADECIMAL CODE) ::= 4 / 40 

<HEXADECIMAL STRING) ::= <HEXADECIMAL CHARACTER) / 
<HEXADECIMAL STRING) <HEXADECIMAL CHARACTER) 
<HEXADECIMAL CHARACTER) ::= 0/1/2/3/4/5/6/7/8/9/ 

A/B/C/D/E/F 
<ALPHA STRING) : : = <BCL CODE) <QUOTE) <BCL STRING) <QUOTE) / 
<ASCII CODE) <QUOTE) <ASCII STRING) <QUOTE) / 
<EBCDIC CODE) <QUOTE) <EBCDIC STRING) <QUOTE> 
<BCL CODE) ::= <EMPTY) / 6 / 60 
<BCL STRING) ::= <QUOTE) / <BCL CHARACTER) / 
<BCL STRING) <BCL CHARACTER) 
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<BCL CHARACTER) ::= <STRING CHARACTER) 

<ASCI I CODE> : := 7 / 70 

<ASCII STRING) ::= <BCL STRING) 

<EBCDIC CODE) : := 8 / 80 

<EBCDIC STRING) ::= <BCL STRING) 

SEMANTICS: 



1 . 



STRINGS MAY CONSIST OF THE FOLLOWING 



ONE-BIT CHARACTERS 
TWO-BIT CHARACTERS 
THREE-BIT CHARACTERS 
FOUR-BIT CHARACTERS 
SIX-BIT CHARACTERS 
SEVEN-BIT CHARACTERS 
EIGHT-BIT CHARACTERS 



(BINARY) 

(QUATERNARY) 

(OCTAL) 

(HEXADECIMAL) 

(BCD 

(ASCII, IN EIGHT-BIT FORMAT) 

(EBCDIC) 



THE STRING CODE DETERMINES THE INTERPRETATION OF THE 
CHARACTERS BETWEEN THE QUOTES. IT SPECIFIES THE CHARACTER SET 
AND, IF THE STRING HAS FEWER THAN H8 BITS, THE JUSTIFICATION 
OF THE STRING WITHIN THE WORD WHICH WILL CONTAIN IT. THE 
FIRST DIGIT SPECIFIES THE CHARACTER SET IN WHICH THE SOURCE 
STRING IS WRITTEN. THE NEXT NONZERO DIGIT SPECIFIES THE 
CHARACTER SIZE OF THE INTERNAL STRING CREATED BY THE COMPILER. 
IF NO SECOND SIZE IS SPECIFIED, IT WILL BE THE SAME AS THE 
INITIAL SIZE. A TRAILING ZERO INDICATES THAT THE STRING IS TO 
BE LEFT-JUSTIFIED WITHIN A WORD (IF THE STRING CONTAINS FEWER 
THAN 48 BITS); IF NO ZERO IS PRESENT, THE STRING WILL BE RIGHT 
JUSTIFIED. 



AN EMPTY STRING CODE 
JUSTIFIED BCL STRING). 



IS TREATED AS 



CODE OF 6 (RIGHT- 



AN ASCII CODE OR EBCDIC CODE MAY BE USED ONLY WITH CHARACTERS 
FROM THE BCL CHARACTER SET. THE COMPILER PRODUCES INTERNALLY 
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A STRING OF EIGHT-BIT CHARACTERS WHICH REPRESENT THE SAME 
GRAPHICS AS THE GIVEN BCL CHARACTERS. FOR CHARACTERS WHICH 
ARE NOT IN THE BCL CHARACTER SET, THE STRING MUST BE WRITTEN 
AS A HEXADECIMAL STRING, WHERE EACH PAIR OF HEXADECIMAL 
CHARACTERS REPRESENTS THE INTERNAL CODE OF ONE ASCII OR EBCDIC 
CHARACTER. 

5. THE QUOTE CHARACTER MAY APPEAR ONLY AT THE BEGINNING OF A 
SIMPLE STRING. STRINGS WITH INTERNAL QUOTES MUST BE BROKEN 
INTO SEPARATE SIMPLE STRINGS BY THE USE OF THREE QUOTES IN 
SUCCESSION. THE LAST TWO QUOTES MUST BE CONTIGUOUS. 

6. THE MAXIMUM PERMISSIBLE LENGTH OF A STRING DEPENDS UPON THE 
CONTEXT IN WHICH THE STRING IS USED. POINTER OPERATIONS 
(REPLACE AND STRING COMPARE) AND LIST ELEMENTS WHICH CONSIST 
OF ONLY A STRING MAY BE REPRESENTED BY STRINGS UP TO 256 H8- 
BIT WORDS IN LENGTH. STRINGS USED AS OPERANDS IN EXPRESSIONS 
ARE LIMITED TO A LENGTH OF 48 BITS. 

7. WHEN A STRING IS FORMED FROM SIMPLE STRINGS OF DIFFERENT 
CHARACTER SIZES. THE FOLLOWING APPLIES: 

A. THE JUSTIFICATION SPECIFIED BY EACH STRING CODE 
AFTER THE FIRST IS IGNORED. 

B. EVERY CHARACTER IN A STRING IS ALIGNED AT A 
CHARACTER BOUNDARY APPROPRIATE FQR THE SIZE OF THAT 
CHARACTER. THIS MAY RESULT IN ZERO BITS BEING 
INSERTED BETWEEN SIMPLE STRINGS. FOR EXAMPLE, 6 " 8 " 
4"8" PRODUCES 001000000 10000. NOTE THAT TWO BITS 
ARE INSERTED BETWEEN THE SIMPLE STRINGS SO THAT THE 
■+"8" FALLS ON A FOUR-BIT CHARACTER BOUNDARY. 
HOWEVER, 8"8" 4"8" REQUIRES NO SUCH ALIGNMENT. 

C. WHEN IT IS NECESSARY FOR THE COMPILER TO KNOW THE 
"LENGTH" IN CHARACTERS OF A STRING AND THE CHARACTER 
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SIZE (E.G., REPLACE AND STRING COMPARE), THE 
CHARACTER SIZE IS THE MAXIMUM CHARACTER SIZE OF ALL 
THE SIMPLE STRINGS; THE LENGTH IS THE SMALLEST 
NUMBER OF CHARACTERS (OF THE MAXIMUM CHARACTER SIZE) 
REQUIRED TO CONTAIN ALL THE BITS OF THE STRING. 
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5. GENERAL COMPONENTS 



5.1. GENERAL 



GENERAL COMPONENTS DIFFER FROM BASIC COMPONENTS IN THAT GENERAL 
COMPONENTS ARE USUALLY SUBSCRIPTED, OR HAVE ASSOCIATED PARAMETERS. 

SYNTAX: 

<GENERAL COMPONENT) ::= <BASIC COMPONENT) / <VARIABLE> / 
<ITEM DESIGNATOR) / <VALUE DESIGNATOR) / 
<EVENT DESIGNATOR) / <INTRINSIC> 

SEMANTICS: 



THE RELATIONSHIP BETWEEN GENERAL COMPONENTS AND EXPRESSIONS IS 
RECURSIVE. EXPRESSIONS ARE COMPOSED OF GENERAL COMPONENTS AND 
CONVERSELY GENERAL COMPONENTS MAY BE COMPOSED IN PART OF 
EXPRESSIONS. IN THE SIMPLEST CASE A <GENERAL COMPONENT) IS 
COMPOSED OF A <BASIC COMPONENT); E.G., A <SIMPLE VARIABLE) IS 
DEFINED TO BE AN < I DENT I F I ER) . 



5- 2 
B6700/B7700 ESPOL 



5.2. VARIABLES 



SYNTAX 



<VARIABLE> ::= <SIMPLE VARIABLE) / <SUBSCRIPTED VARIABLE) 
<SIMPLE VARIABLE) ::= <IDENTIFIER> 

<SUBSCRIPTED VARIABLE) ::= <ARRAY IDENTIFIER) [ <SUBSCRIPT LIST) 1 
<ARRAY IDENTIFIER) ::= <IDENTIFIER) / <ARRAY INTRINSIC) 
OUBSCRIPT LIST) ::= <SUBSCRIPT> / <SUBSCRIPT LIST) , <SUBSCRIPT) 
<SUBSCRIPT> ::= <ARITHMETIC EXPRESSION) 

SEMANTICS: 



1. A SUBSCRIPTED VARIABLE IS AN ARRAY IDENTIFIER WITH A SUBSCRIPT 
LIST. THE ARRAY IDENTIFIER REFERS TO A SET OF VALUES. AN 
ARRAY IDENTIFIER WITH A SUBSCRIPT LIST REFERS TO A SINGLE 
VALUE OR A SUBSET OF VALUES. 

2. THE TOTAL NUMBER OF SUBSCRIPTS IN A SUBSCRIPT LIST MUST EQUAL 
THE NUMBER OF DIMENSIONS GIVEN IN THE ARRAY DECLARATION. 

3. EACH SUBSCRIPT EXPRESSION IN A SUBSCRIPT LIST IS EVALUATED 
FROM LEFT TO RIGHT. 

H. IF, UPON EVALUATION, A SUBSCRIPT EXPRESSION YIELDS A VALUE OF 
TYPE REAL, IT WILL BE ROUNDED AS FOLLOWS: 

INTEGRAL SUBSCRIPT VALUE = ENTIER (VALUE OF SUBSCRIPT 
EXPRESSION + 0.5) 

5. IF THE VALUE OF A SUBSCRIPT FALLS OUTSIDE THE BOUNDS DECLARED 
FOR THAT DIMENSION, THERE WILL BE AN "INVALID INDEX" ERROR AND 
TERMINATION OF THE PROCESS. 

EXAMPLES: 
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SIMPLE VARIABLES: 

A 

ABSOLUTE 

ABSE 

SUBSCRIPTED VARIABLES: 

AE5] 

QTYEQ+7, VXN.Z] 

Q[7,2] 

A[ ITH] 

KRONECKERI I TH + 2 , JTH- I TH I 

MAXQ [ IF BETA = 30 THEN -2 ELSE K+ 2 ] 
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5.3. ITEM DESIGNATORS 

SYNTAX: 

<ITEM DESIGNATOR) ::= <ARITHMETIC ITEM> / <WORD ITEM> 

<ARITHMETIC ITEM> ::= <ITEM> 

<WORD ITEM> : := < ITEM> 

<ITEM> ::= <ITEM IDENTIFIER) ® <REFERENCE EXPRESSION) 

<ITEM IDENTIFIER) ::= <IDENTIFIER) / <ITEM) 

SEMANTICS: 



ITEMS ARE USED WHEN IT IS NECESSARY TO HAVE MORE THAN ONE TYPE OF 
VARIABLE IN A QUEUE ELEMENT. IN PARTICULAR. ITEMS MAY BE TREATED AS 
CALL-BY-NAME VARIABLES. IN GENERAL. <ITEM IDENTIFIER)S ARE 
PROVIDED TO REFERENCE PARAMETERS IN A QUEUE STRUCTURE. THE <ITEM 
IDENTIFIER) MAY ALSO BE USED AS AN INDEX TO AUTOMATICALLY PROVIDE 
THE ORDINAL NUMBER OF A QUEUE ELEMENT CORRESPONDING TO THE 
INDICATED ITEM. 

EXAMPLES: 



FIRSTGO ® WAITCHANELQUEICHANELNUMBER] 
FA0WST@(REFERENCECA[2, 13)) 
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5.4. VALUE DESIGNATORS 



SYNTAX 



<VALUE DESIGNATOR> ::= <VALUE ARRAY IDENTIFIER> [<SUBSCRIPT LIST>] 
<VALUE ARRAY IDENTIFIER> ::= <IDENTIFIER> 

SEMANTICS: 



A VALUE DESIGNATOR REFERENCES A PARTICULAR ELEMENT OF A VALUE ARRAY 
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5.5. EVENT DESIGNATORS 



SYNTAX: 



<EVENT DESIGNATOR) ::= <EVENT IDENTIFIER) / <EVENT ITEM> / 
<EVENT ARRAY IDENTIFIER) KSUBSCRIPT LIST>] / 
<EVENT ARRAY ITEM) KSUBSCRIPT LIST)] 

<EVENT ITEM) : := <ITEM) 

<EVENT ARRAY ITEM) ::= <ITEM) 

SEMANTICS: 



1. AN EVENT DESIGNATOR DESIGNATES AN EVENT QUANTITY. 

2. THE ITEM IDENTIFIER OF AN ITEM USED AS AN EVENT ITEM MUST BE 
DECLARED AS AN EVENT. 

3. THE ITEM IDENTIFIER OF AN ITEM USED AS AN EVENT ARRAY ITEM 
MUST APPEAR IN A DECLARATION STATEMENT DECLARING IT AS AN 
EVENT ARRAY. 

EXAMPLES: 



EI 

ZEUS [2,3] 
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5.6. INTRINSICS 



SYNTAX: 



<INTRINSIC> ::= <ARRAY INTRINSIO / <FUNCTION INTRINSIO / 
<PROCEDURE INTRINSIO / <WORD INTRINSIO 

<ARRAY INTRINSIO ::= M / MEMORY / REGISTERS / STACK / 
STACKVECTOR / WORDSTACK 

<FUNCTION INTRINSIO ::= <ARITHMETIC INTRINSIO / 
<BOOLEAN INTRINSIO 

<ARITHMETIC INTRINSIO ::= ABS / BOOLEAN / DABS / DECIMAL / 
DINTEGER / DMAX / DMIN / DNABS / DOUBLE / DSCALELEFT / 
DUPLICATE / ENTIER / EVAL / EXCHANGE / FIRSTONE / 
FIRSTWORD / INTEGER / LISTLOOKUP / MASKSEARCH / MAX / MIN / 
MYSELF / NABS / NAME / NORMALIZE / OCRX / ONES / REAL / 
SCALELEFT / SCALER I GHT / SCALER I GHTF / SCALER 1 6HTT / 
SCANIN / SECONDWORD / SIZE / STUFF / XSIGN 

<BOOLEAN INTRINSIO ::= AVAILABLE / BUSY / HAPPENED / 
OVERFLOW / TOGGLE / UNLOCK 

<PROCEDURE INTRINSIO ::= ALLOW /BUZZ / DISALLOW / 
EXIT / HEYOU / IIO / 

MOVESTACK / PAUSE / RETURN / SCANOUT / 
STOP / STOREITEM / TIMER / TOUCH / ZAP 

<WORD INTRINSIO ::= TOPOFSTACK 

SEMANTICS: 



AN "INTRINSIC" IS DEFINED TO BE SOMETHING WHICH THE COMPILER 
ALREADY UNDERSTANDS; I.E., IT NEED NOT BE "DECLARED". THE PURPOSE 
OF AN INTRINSIC IS TO PROVIDE THE PROGRAMMER WITH FACILITIES SUCH 
THAT HE DOES NOT HAVE TO DO THE DETAIL CODING. 

IN MANY CASES, THE FOLLOWING INTRINSICS NOT ONLY PERFORM A CERTAIN 
ACTION, BUT THEY RETURN SOMETHING TO THE TOP OF THE STACK. THE 
ESPOL COMPILER GENERATES A "DELETE" OPERATION IF IT SEES THE 
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INTRINSIC USED AS A PROCEDURE RATHER THAN AS A FUNCTION. 



ARRAY INTRINSICS 



INTRINSIC RESULT 



MINI THESE ARE EQUIVALENT. THEY ARE 

MEMORY IN] ONE-DIMENSIONAL WORD ARRAYS REFERENC 

MEMORY. 

REGISTERSENI THIS IS A ONE DIMENSIONAL ARRAY 

WHICH REFERENCES THE VARIOUS 
MACHINE REGISTERS. 

STACKIX.Y] THIS IS TWO-DIMENSIONAL REAL ARRAY, 

WHERE X GIVES THE STACK NUMER AND 
Y THE WORD NUMBER. 

STACKVECTORtN] THIS IS A ONE-DIMENSIONAL WORD ARRAY 

REFERRING TO A PARTICULAR ROW 
OF A STACK. 

WORDSTACKIX , Yl THIS IS EQUIVALENT TO STACK 

EXCEPT THAT IT IS A WORD ARRAY. 

ARITHMETIC INTRINSICS 



INTRINSIC OPERATOR RESULT 

ABS(AE) BRST RETURNS ABSOLUTE VALUE OF AE. 

BOOLEANCAE) RETURNS THE VALUE OF AE AS A 

BOOLEAN. IF AE IS DOUBLE THEN 
AE WILL BE TRUNCATED FIRST. 



DABS(DAE) 
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BRST 



RETURNS THE ABSOLUTE VALUE OF THE 
DOUBLE DAE. 



DECIMAL(N) 



SCRF 



"OUTPUT CONVERT" THE BINARY 

REPRESENTATION OF 

N TO DECIMAL REPRESENTATION. 

IF N IS A POINTER THE CHARACTER 

SIZE IS DETERMINED BY THE COMPILER. 

IF N IS AN OPERAND IT IS TREATED AS 

AN EIGHT BIT/CHARACTER (EBCDIC) 

STRI,NG. 



DINTEGER(AE) 



NTGD 



CONVERTS AE INTO A DOUBLE-PRECISION 
INTEGER. 



DMAXC Al , . . . ,AN) 



RETURNS THE MAXIMUM OF THE 
VALUES Al , . . . ,AN. 



DMINCAl ... .AN) 



RETURNS THE MINIMUM OF THE VALUES 
Al AN . 



DNABS(DAE) 



BSET 



RETURN THE NEGATIVE ABSOLUTE VALUE 
OF THE DOUBLE DAE. 



DOUBLECPE , AE) ICVD 

XTND 



SAME AS INTEGERtPE. AE) EXCEPT THAT 
THE MAXIMUM VALUE OF AE IS 24 AND 
THE CHARACTERS IN THE STRING 
REFERENCED BY THE POINTER MUST BE LE 
THAN 8*26-1 = 3022314549036572936765 



DOUBLECRl ,R2) 



JOIN 



RETURNS THE DOUBLE VALUE WITH THE 
FIRST PART EQUAL TO Rl AND THE 
SECOND PART EQUAL TO R2. 



DOUBLE(RE) 



XTND 



RETURNS THE DOUBLE VALUE EQUAL 
TO THE SINGLE RE. 
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10 



DSCALELEFT(V,F) 



SCLF 
(DSLF) 



RETURNS THE DOUBLE INTEGER VALUE OF 
DOUBLE ARITHMETIC-VARIABLE V MULTIPL 
BY 10 RAISED TO THE F POWER. THE 
OPERATOR EMPLOYED IS SCLF IF F IS AN 
INTEGER CONSTANT; DSLF IS USED IF F 
IS AN INTEGER VARIABLE. 



DUPLICATE 



DUPL 



ANYWHERE A <PRIMARY> IS 
ALLOWED, THIS INTRINSIC MAY BE USED. 
IT SIMPLY DUPLICATES THE TOP WORD 
OF THE STACK, THEREBY ADDING ANOTHER 
WORD TO THE TOP OF THE STACK. 



ENTIER(N) 



ROUNDS THE ABSOLUTE VALUE OF N 
DOWN TO AN INTEGER. RETURN THE 
RESULT WITH THE PROPER SIGN. 



EVAL(X) 



EVAL 



LEAVES IN THE TOP OF THE STACK AN 
INDEXED DATA DESCRIPTOR OR STUFFED 
INDIRECT REFERENCE WORD WHICH POINTS 
TO THE LOCATION IN MEMORY OF THE 
ARITHMETIC TYPE VARIABLE X. 



EXCHANGE(V) 



EXCH 



FIRST THE VARIABLE V IS 
BROUGHT TO THE TOP OF THE STACK. 
THEN THE TWO TOP WORDS OF THE 
STACK ARE EXCHANGED. 



FIRSTONE(N) 



L0G2 



RETURNS BIT NUMBER (PLUS 1) 

OF FIRST NONZERO BIT 

IN N. FIRSTONE RETURNS 

ZERO IF THERE ARE NO NONZERO BITS 



FIRSTWORD(EVNT) 



RETURNS THE HIGH-ORDER WORD OF 
EVNT WITH A SINGLE-PRECISION 
TAG. EVNT MAY BE AN EVENT, 
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EVENT ARRAY OR DOUBLE-PRECISION 
OPERAND. 



FiRSTWORD(D,V) 



THE SINGLE-PRECISION VALUE RETURNED 
WILL BE THE FIRST-WORD OF THE 
DOUBLE D, AND THE SECOND-WORD OF D 
WILL BE STORED IN VARIABLE V. 



INTEGERCAE) 



NTGR 



ROUNDS AE. 

(I.E., ENTIERCAE + 0.5) ) 



INTEGER (PE,AE) UABD 



ICVD 



"INPUT CONVERTS" AND 
RETURNS, AS AN INTEGER, TE 
DECIMAL VALUE OF AE CHARACTERS, 
STARTING WITH THE CHARACTER POINTED 
AT BY POINTER EXPRESSION PE . 



LISTLOOKUP 
(AE,AR,AE) 



LLLU 



RETURNS AN INTEGER VALUE. IT 
IS USED AS FOLLOWS: 



I := LISTLOOKUP (X,A,N) 

WHERE X IS THE ARGUMENT, A IS A ONE- 
DIMENSIONAL ARRAY IDENTIFIER OR ARRA 
ROW, AND N IS AN INDEX INTO THAT ARR 



MASKSEARCH 
(AE,AE,AR) 



SRCH 



RETURNS AN INTEGER VALUE 
USED AS FOLLOWS: 



ITS 



I := MASKSEARCH (X,M,A) 



WHERE X IS THE WORD TO LOOK FOR, M 
IS THE MASK VALUE, AND A IS A 
ONE-DIMENSIONAL ARRAY IDENTIFIER, 
AN ARRAY ROW, OR A FULLY SUBSCRIPTED 
VARIABLE. 
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THE OPERATOR BEGINS AT THE LAST 
WORD OF THE ARRAY IF A IS NOT 
INDEXED (ARRAY ID OR ARRAY ROW CASE) 
OR AT THE SPECIFIED WORD. IT 
PERFORMS A LOGICAL "AND" OPERATION 
WITH THE MASK AND THEN 

COMPARES THE RESULT WITH THE VALUE 
IF EQUAL, THE INDEX IS THE RESULT. 
IF NOT, THE OPERATOR REPEATS 
THE SAME FUNCTION ON EACH WORD 
WORKING TOWARD THE FIRST 
WORD OF THE ARRAY. IF NO MASKED 
VALUE MATCHES THE VALUE OF X, THE 
RESULT IS -1. NOTE: THE OPERATOR 
IS DESIGNED FOR ARRAYS WHOSE LOWER 
BOUNDS ARE 0. THE INDEX RETURNED IS 
ALWAYS IN THE RANGE THROUGH N- 1 , 
WHERE THE ROW CONTAINS N ELEMENTS. 



MAXC Al , . . . AN) 



RETURNS THE MAXIMUM OF THE VALUES 
Al , . . . AN. 



MIN( Al , . . . , AN) 



RETURNS THE MINIMUM OF THE 
VALUES Al , . . . , AN. 



MYSELF 



WHOI 



THE NUMBER OF THE PROCESSOR WHICH 
IS RUNNING. 



NABS( AE) 



BSET 



RETURN NEGATIVE ABSOLUTE VALUE OF AE 



NAMEC VAR) 



NAME 



RETURNS THE ADDRESS-COUPLE OF THE 
VARIABLE VAR. 



NORMALIZE( AE ) 



SNGL 



AE IS CHANGED TO A ROUNDED 
NORMALIZED, SINGLE-PRECISION 
OPERAND. NOTE THAT THIS TAKES PLACE 
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THE TOP OF THE STACK AND MEMORY 
IS NOT ALTERED. 



OCRXC INDEX. OCW) 



OCRX 



THE OCRX OPERATOR LEAVES THE VALUE 
OF (OCW OFFSET+ (OCW LENGTH 
X (INDEX -i))) IN THE TOP OF 
THE STACK. 



ONES(N) 



CBON 



RETURNS NUMBER OF NONZERO 
BITS IN N. 



REAL(BE) 



RETURNS THE REAL VALUE REPRESENTED B 
THE BOOLEAN EXPRESSION BE. ALL BITS 
OF BE ARE USED. 



REAL(DBL) 



SNGL 



RETURNS THE DOUBLE EXPRESSION DBL 
NORMALIZED AND ROUNDED TO A 
SINGLE-PRECISION ITEM 



REALCPE ,AE3 



SISO 



RETURNS, AS A REAL VALUE, A BIT IMAG 
OF THE STRING OF AE CHARACTERS START 
WITH THE CHARACTER INDICATED BY THE 
POINTER EXPRESSION PE . ALL BITS OF 
CHARACTER ARE USED. 



SCALELEFT(V,F) SCLF 

(DSLF) 



RETURNS THE INTEGER VALUE OF THE 
ARITHMETIC TYPE VARIABLE MULTIPLIED 
BY 10 RAISED TO THE F POWER. THE 
OPERATOR EMPLOYED IS SCLF IF F IS 
AN INTEGER CONSTANT; DSLF IS USED IF 
F IS AN INTEGER VARIABLE. 



SCALERIGHT ( V,F ) SCRR 

(DSRR) 



RETURNS THE ROUNDED INTEGER VALUE 
OF THE ARITHMETIC TYPE VARIABLE 
DIVIDED BY 10 RAISED TO THE F POWER 
THE OPERATOR EMPLOYED IS SCRR IF F 
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IS AN INTEGER CONSTANT; DSRR IS USED 
IF F IS AN INTEGER VARIABLE. 



SCALERIGHTF(V,F) 



SCRD 
CDSRF) 



RETURNS THE REAL REMAINDER OF THE 
ARITHMETIC-TYPE VARIABLE V DIVIDED 
BY 10 RAISED TO THE F POWER. THE 
NUMBER OF SIGNIFICANT DIGITS RE- 
TURNED IS F. THE OPERATOR EMPLOYED 
IS SCRF IF F IS AN INTEGER CONSTANT; 
DSRF IS USED IF F IS AN INTEGER 
VARIABLE. 



SCALERIGHTTCV.F) SCRF 

(DSRF) 



RETURNS THE TRUNCATED INTEGER VALUE 
ARITHMETIC-TYPE VARIABLE V DIVIDED B 
RAISED TO THE F POWER. THE OPERATOR 
EMPLOYED IS SCRT IF F IS AN 
INTEGER CONSTANT; DSRT IS USED 
IF F IS AN INTEGER VARIABLE. 



SCANIN(N) 



SCNI 



GETS THE INFORMATION INDICATED BY 

N AND LEAVES IT IN THE TOP OF STACK. 



SECONDWORD (EVNT) 



RETURNS THE SECOND WORD 

WITH A SINGLE-PRECISION TAG. 

EVNT MAY BE AN EVENT, 

OR A DOUBLE-PRECISION OPERAND. 



SIZE(Q) 



RETURN NUMBER OF ENTRIES 
IN THE QUEUE Q. 



STUFF(X) 



NAMC 
STFF 



LEAVES IN THE TOP OF THE STACK 
A STUFFED INDIRECT REFERENCE WORD 
WHICH POINTS TO THE LOCATION IN 
MEMORY OF X (WHICH CAN BE A PROCEDUR 
IDENTIFIER, ARRAY IDENTIFIER, EVENT 
IDENTIFIER, INTERRUPT IDENTIFIER. 
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OR QUEUE). IF X IS AN INTERRUPT 
IDENTIFIER, THE RESULTING SIRW 
POINTS TO THE SECOND WORD OF THE 
INTERRUPT. 



XSIGN 



SXSN 



SETS EXTERNAL-SIGN FLIP-FLOP 
EQUAL TO SIGN OF TOP OF STACK 
AND RETAIN THE VALUE OF 
THE TOP OF THE STACK. 



BOOLEAN INTRINSICS 



INTRINSIC 



OPERATOR RESULT 



AVAILABLE(E) 



RETURNS TRUE IF THE EVENT E IS 
AVAILABLE (BIT2=0). 



BUSY(X) 



TRUE IF X IS LOCKED 
CBIT0=1 ) . 



HAPPENED(E) 



RETURNS TRUE IF E HAS "HAPPENED" 
tBITO=l ) . 



OVERFLOW 



ROFF 



RETURNS VALUE OF OVERFLOW 
FLIP-FLOP. 



TOGGLE 



RTFF 



RETURNS VALUE OF TRUE-FALSE 
FLIP-FLOP. 



UNLOCK(X) 



TRUE IF X WAS PREVIOUSLY LOCKED 
UNLOCK LEAVES X UNLOCKED. 



PROCEDURE INTRINSICS 



INTRINSIC 



OPERATOR RESULT 
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ALLOW EEXI ENABLES EXTERNAL INTERRUPTS. 

BUZZ(X) DEXI A ONE(l) IS CONTINUALLY INTERCHANGED 

RDLK WITH THE CURRENT 

CONTENTS OF X UNTIL BITO 
OF X IS OFF, AT WHICH POINT 
THAT VALUE IS RETURNED. (NOTE 
THE DEXI OPERATOR WHICH IS 
FIRST AUTOMAGICALLY EXECUTED.) 

DISALLOW DEXI DISABLES EXTERNAL INTERRUPTS. 

EXIT EXIT GENERATES EXIT OPERATOR. 

HEYOU HEYU INTERRUPTS OTHER PROCESSORS. 

IIO(A,U) SCNO INITIATES I/O, USING UNIT SPECIFIED 

BY U AND ARRAY ROW "A" IS PASSED 
TO THE MULTIPLEXOR. 

MOVESTACKCN) MVST TRANSFERS CONTROL TO STACK N. 

PAUSE IDLE IDLES UNTIL AN EXTERNAL INTERRUPT 

OCCURS. 

RETURN(N) RETN RETURNS THE 

VALUE N AS A RESULT. 

NOTE THAT "BLOCKEXIT CODE" IS 

AVOIDED VIA THIS INTRINSIC. 

SCANOUTCV.T) SCNO T AND V CAN BE ARITHMETIC TYPE 

OR WORD TYPE ESPRESSIONS. 
V IS THE VALUE WHICH IS SCANNED OUT 
AND T INDICATES WHAT TYPE OF 
SCANOUT WILL TAKE PLACE. 
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STOP HALT MAY HAVE ZERO, OR ONE, OR TWO ARGUME 

STOP LOADS THE ARGUMENTS INTO 
A AND B REGISTERS AND 
HALTS THE PROCESSOR IF THE 
CONDITIONAL HALT SWITCH IS ON. 
DEPENDING ON THE NUMBER OF ARGUMENTS 
THE COMPILER GENERATES THE APPROPRIA 
NUMBER OF "DELETES" TO EMPTY THE 
STACK AFTER THE HALT OPERATOR. 

STOREITEM{FITM,AITM) STORES THE NAME OF AITM IN 

THE LOCATION SPECIFIED BY F I TM . 

TIMER(N) SINT SETS INTERVAL TIMER TO VALUE N, 

WHERE N IS IN 512 MICROSECOND 
INCREMENTS. 

TOUCH(EXP) THE EXPRESSION EXP IS EVALUATED AND 

THEN DELETED. IT IS PRIMARILY INTEN 
TO ALLOW SIDE EFFECTS SUCH AS 
PRESENCEBIT ACTION. 

ZAP ZAP ALSO KNOWN AS "SUPER HEYOU" BECAUSE 

IT UNCONDITIONALLY INTERRUPTS ALL 
OTHER PROCESSORS WITH AN ALARM 
INTERRUPT. 

WORD INTRINSIC 



INTRINSIC RESULT 



TOPOFSTACK THIS INTRINSIC REFERENCES THE TOP OF 

THE STACK. IT MAY APPEAR ANYWHERE 
A <WORD VARIABLE> COULD APPEAR. FOR 
EXAMPLE: TOPOFSTACK := A := I+J; 
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OR RETURN ( TOPOFST ACK ) . 
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?: PROGRAMS, BLOCKS. AND COMPOUND STATEMENTS 

SYNTAX: 

<PROGRAM> ::= <BLOCK> . <SPACE> / <COMPOUND STATEMENT> . <SPACE> 

<BLOCK> ::= <BLOCK HEAD> ; <COMPOUND TAIL> 

<BLOCK HEAD> ::= BEGIN <DECLARAT I 0N> / <BLOCK HEAD> ; <DECLARAT I 0N> 

<COMPOUND TAIL> ::= <STATEMENT> END / <STATEMENT> ; <COMPOUND TAIL> 

<COMPOUND STATEMENT) ::= BEGIN <COMPOUND TAIL> 

<SPACE> ::= <SINGLE SPACE> / <SPACE> <SINGLE SPACE> 

SEMANTICS: 



1. LOCAL: EVERY BLOCK AUTOMATICALLY INTRODUCES A NEW LEVEL OF 
NOMENCLATURE FOR IDENTIFIERS DECLARED IN THAT BLOCK. THAT IS. 
ANY IDENTIFIER OCCURRING WITHIN THE BLOCK MAY, THROUGH AN 
APPROPRIATE DECLARATION. BE DECLARED "LOCAL" TO THE BLOCK. 
THE MEANING OF LOCAL IS AS FOLLOWS: 

A. THE VALUE(S) REPRESENTED BY THE IDENTIFIER INSIDE 
THE BLOCK WILL NOT BE RECOGNIZED BY THAT IDENTIFIER 
OUTSIDE THE BLOCK. 

B. CORRESPONDINGLY, ANY VALUE(S) REPRESENTED BY THE 
IDENTIFIER OUTSIDE THE BLOCK WILL NOT BE RECOGNIZED 
BY THAT IDENTIFIER INSIDE THE BLOCK. 

2. GLOBAL: AN IDENTIFIER OCCURRING WITHIN A BLOCK AND NOT 

DECLARED WITHIN THAT BLOCK IS "GLOBAL" TO THE BLOCK. THE 

MEANING OF GLOBAL IS AS FOLLOWS: THE IDENTIFIER REPRESENTS THE 

SAME VALUE(S) INSIDE THE BLOCK AS IN THE LEVEL(S) OUTSIDE IT, 
UP TO AND INCLUDING THE LEVEL AT WHICH IT IS DECLARED. 

EXAMPLES: 
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PROGRAM: 

BEGIN REAL V; V-V+V+I END. 
BLOCKS: 

BEGIN REAL Q; Q+Q+I END 

BEGIN 

INTEGER I .K; REAL W; 

FOR I-I STEP I UNTIL M DO 

FOR K-I+I STEP I UNTIL M DO 

BEGIN 

W-At I ,K] ; 

At I .Kl-AIK, I ] ; 

A[K, I ]-W 

END 

END 

COMPOUND STATEMENTS: 

BEGIN X*-0;FOR Y-I STEP I UNTIL N DO X-X + AEY]; 

IF X>Q THEN GO TO STOP ELSE IFX>W-c THEN GO TO W; 

AW-ST-X+BOB 

END 

BEGIN V-V+I END 

BEGIN Q-Q+I ;V-V+I END 

BEGIN END 

BLOCK HEADS: 

BEGIN REAL V 

BEGIN REAL V; BOOLEAN Q 

COMPOUND TAILS: 
V-V+I END 
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Q-Q+ I ; V-Q+V END 
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DECLARATIONS 
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7.1. GENERAL 

DECLARATIONS DEFINE FOR THE COMPILER CERTAIN PROPERTIES OF 
IDENTIFIERS IN THE BLOCK OF A PROGRAM. DECLARATIONS ARE USED ONLY 
DURING COMPILATION AND ARE, THEREFORE, NOT EXECUTED. 

SYNTAX: 



<DECLARATION> ::= <ARRAY DECLARATION) / 

<DEFINE DECLARATION) / <DEFINE INVOCATION) / 
<DIRECT ARRAY DECLARATION) / <EVENT DECLARATION) / 
<EVENT ARRAY DECLARATION) / <FIELD DECLARATION) / 
<F!LE DECLARATION) / < INTERRUPT DECLARATION) / 

>;_«uu.i_ L/Ci^i_nrv n 1 i i»i iN /■ / \ 1_ A I (J U I Ut-ULARAI 1 U IN ^ / 

<MONITOR DECLARATION) / <PICTURE DECLARATION) / 
<PRQCEDURE DECLARATION) / <QUEUE ARRAY DECLARATION) / 
<QUEUE DECLARATION) / <TYPE DECLARATION) / 
<VALUE ARRAY DECLARATION) 

SEMANTICS: 



1 



SCOPE: THE SCOPE OF THE IDENTIFIER IS THE BLOCK IN WHICH IT IS 
DECLARED EXCEPT FOR THE FOLLOWING: 

A. FORMAL SYMBOLS IN A DEFINE DECLARATION; THE SCOPE OF 
THESE FORMAL SYMBOLS CONSISTS OF THE CORRESPONDING 
DEFINES. 

B. FORMAL PARAMETERS IN A PROCEDURE DECLARATION; THE 
SCOPE OF THESE FORMAL PARAMETERS IS THE PROCEDURE 
DECLARATION. 
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C. INVISIBLE FORMAL ITEMS IN A QUEUE DECLARATION; THE 
SCOPE OF THESE FORMAL ITEMS IS THE QUEUE DECLARATION 

2. LOCAL: AN IDENTIFIER IS SAID TO BE "LOCAL" TO THE BLOCK IN 
WHICH IT IS DECLARED. THAT IS. A VALUE REPRESENTED BY THE 
IDENTIFIER INSIDE THE BLOCK IS ISOLATED FROM THAT IDENTIFIER 
OUTSIDE THE BLOCK. 

3. AT THE TIME OF EXIT FROM THE BLOCK, ALL IDENTIFIERS WHICH ARE 
DECLARED FOR THE BLOCK LOSE THEIR SIGNIFICANCE. 

4. GLOBAL: AN IDENTIFIER IS SAID TO BE "GLOBAL" TO A BLOCK IF IT 
MEETS THE FOLLOWING CONDITIONS: 

A. IT IS NOT DECLARED IN THE BLOCK. 

B. IT IS DECLARED IN AN EXTERIOR BLOCK. 

5. WHEN THE BLOCK IS ENTERED, ALL IDENTIFIERS DECLARED FOR THE 
BLOCK ASSUME THE SIGNIFICANCE IMPLIED BY THE NATURE AND ORDER 
OF THE DECLARATIONS IN THE BLOCK HEAD. 

6. SOME IDENTIFIERS MAY BE DECLARED WITH THE DECLARATOR "OWN". 
THIS DECLARATOR CAUSES THE IDENTIFIED QUANTITY TO RETAIN ITS 
VALUE(S) FROM ONE EXIT OF A BLOCK TO THE ENTRY INTO THAT BLOCK 

7. AN IDENTIFIER MAY NOT BE DECLARED TO REPRESENT MORE THAN ONE 
ENTITY IN A SINGLE BLOCK HEAD. FORMAL SYMBOL LIST, FORMAL 
PARAMETER LIST, OR FORMAL ITEM LIST. 
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7.2. ARRAY DECLARATIONS 



SYNTAX: 



<ARRAY DECLARATION) ::= <ARRAY KIND> ARRAY <ARRAY LIST> 
<ARRAY KIND> ::= <EMPTY> / <LOCAL OR OWN TYPE> / 

SAVE <LOCAL OR OWN TYPE> 
<LOCAL OR OWN TYPE> ::= <TYPE> / OWN <TYPE> 
<ARRAY LIST> ::= <ARRAY SEGMENT) / <ARRAY LIST> , <ARRAY SEGMENT)/ 

<INITIALIZED ARRAY) / <ARRAY LIST) , <INITIALIZED ARRAY) 
<ARRAY SEGMENT) ::= <ARRAY IDENTIFIER) <ADDRESS PART) 

KBOUND LIST)] / <ARRAY IDENTIFIER) <ADDRESS PART) , 

<ARRAY SEGMENT) 
<BOUND LIST) ::= <BOUND) / <BOUND LIST) , <BOUND) 
<BOUND) ::= <WORD COUNT) / * 
<WORD COUNT) ::= <ARITHMETIC EXPRESSION) 
<INITIALIZED ARRAY) : := 

<ARRAY IDENTIFIER) <REPLACEMENT OPERATOR) (<CONSTANT LIST)) 

SEMANTICS: 



1. AN ARRAY DECLARATION DEFINES ONE OR SEVERAL IDENTIFIERS TO 
REPRESENT ARRAYS OF SUBSCRIPTED VARIABLES; IT ALSO PROVIDES 
THE FOLLOWING: 

A. THE DIMENSIONS OF THE ARRAY. 

B. THE BOUNDS OF THE SUBSCRIPTS. 

C. THE TYPES OF THE VARIABLES. 

2. THE VALUE OF AN ARRAY IDENTIFIER IS A DATA DESCRIPTOR 
REPRESENTING THE ORDERED SET OF VALUES OF THE CORRESPONDING 
ARRAY OF SUBSCRIPTED VARIABLES. 
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3. AN EMPTY ARRAY KIND MEANS A DEFAULT DECLARATION OF REAL. 

4. THE LOCATION SPECIFIED BY THE ADDRESS PART MUST CONTAIN A DATA 
DESCRIPTOR OR AN INDIRECT REFERENCE WORD POINTING TO A DATA 
DESCRIPTOR. 

5. IF "SAVE" IS SPECIFIED, THE ARRAY WILL BE MADE NON-OVERLAYABLE 
WHEN IT IS ALLOCATED. NOTE THAT THE COMBINATION OF "SAVE" AND 
A <BOUND> OF "*" ARE NOT ALLOWED. 

6. THE BOUND LIST GIVES THE NUMBER OF VALUES FOR EACH SUBSCRIPT 
TAKEN IN ORDER FROM LEFT TO RIGHT. 

7. A BOUND OF <WORD COUNT> INDICATES THAT <WORD COUNT> IS THE 
TOTAL NUMBER OF WORDS IN THE <ARRAY ROW> . 

8. A BOUND OF "•" MEANS THAT THE PROGRAMMER IS RESPONSIBLE FOR 
THE ALLOCATION OF THE SPACE FOR THE ARRAY, BUT THE COMPILER 
PRODUCES A ZERO WORD WITH A TAG OF 5. 

9. EXPRESSIONS USED AS BOUNDS ARE EVALUATED ONCE, FROM LEFT TO 
RIGHT, UPON ENTRANCE INTO THE BLOCK. THESE EXPRESSIONS CAN 
DEPLND ONLY ON VARIABLES AND PROCEDURES WHICH ARE NONLOCAL TO 
THE BLOCK FOR WHICH THE ARRAY DECLARATION IS VALID OR WHICH 
ARE LOCAL AND HAVE INITIAL VALUE PARTS. ARRAYS DECLARED IN 
THE OUTERMOST BLOCK MUST USE CONSTANT OR "*" BOUNDS. 

10. A BOUND OF "*" MAY NOT APPEAR TO THE LEFT OF AN EXPRESSION 
USED AS A BOUND IN THE SAME BOUND LIST. 

11. WHEN AN ARRAY SEGMENT INCLUDES NON-EMPTY ADDRESS PARTS, A 
BOUND OF "*" MUST BE USED. 

IE. DYNAMIC OWN ARRAYS ARE NOT PERMITTED. 

EXAMPLES: 
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ARRAY DECLARATIONS: 

OWN REAL ARRAY AZ, BZ = (3,4), CZ [27] 
ARRAY BZ[ 10 J 

ARRAY LISTS: 

AZ,BZ=(3,H) ,CZ[27] 

PQ,RQr31] 

PCI 15] ,RCt31 ] 

ARRAY SEGMENTS: 

C7C= ( -2,5) ,C8C = C7C,C9C= ( •+)!*] 
C27tl022] 

BOUND LISTS: 

1 ,56 
7 
1 ,* 

BOUNDS: 



27 
* 



IF A THEN 1 ELSE Q-7 



7.3. 
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DEFINE DECLARATIONS AND DEFINE INVOCATIONS 



SYNTAX 
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<DEFINE DECLARATION> ::= DEFINE <DEFINITION LIST> 
<DEFINITION LIST> ::= <DEFINITION> / <DEFINITION LIST> , 

<DEFINITION> 
<DEFINITION> ::= <DEFINED IDENTIFIER> 

<FORMAL SYMBOL PART> = <TEXT> # 
<DEFINED IDENTIFIER> ::= <IDENTIFIER> 

<FORMAL SYMBOL PART> ::= <EMPTY> / (< FORMAL SYMBOL LIST>) 
<FORMAL SYMBOL LIST> ::= <FORMAL SYMBOL> / <FORMAL SYMBOL LIST>, 

<FORMAL SYMBOL> 
<FORMAL SYMBOL> ::= <IDENTIFIER> 
<TEXT> ::= ^ ANY SEQUENCE OF VALID <CHARACTER>S NOT INCLUDING 

A FREE # ik 
<DEFINE INVOCATION) ::= <DEFINED IDENTIFIER) <ACTUAL TEXT PART> 
<ACTUAL TEXT PART> ::= <EMPTY> / (<CLOSED TEXT LIST>) / 

[ <CLOSED TEXT LIST> ] 
<CLOSED TEXT LIST> ::= <CLOSED TEXT> / <CLOSED TEXT LIST>, 

<CLOSED TEXT> 
<CLOSED TEXT> : : = ^ AN ACTUAL TEXT NOT CONTAINING 

UNMATCHED BRACKETING SYMBOLS OR UNBRACKETED COMMASi^ 



SEMANTICS : 



THE <DEFINE DECLARATION) ASSOCIATES ESPOL SOURCE LANGUAGE 
TEXTS WITH DEFINE IDENTIFIERS. 

A <DEFINE INVOCATION) CAUSES THE REPLACEMENT OF THE <DEFINED 
IDENTIFIER) BEING INVOKED BY THE <TEXT) NHICH IS ASSOCIATED 
WITH THE IDENTIFIER. NOTE THAT A <DEFINE INVOCATION) CAUSES 
THE GENERATION OF IN-LINE CODE AT COMPILE TIME. 



IF THE DEFINITION OF 



<DEFINED IDENTIFIER) INCLUDES ANY 
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FORMAL SYMBOLS, ANY APPEARANCE OF THESE SYMBOLS IN THE <TEXT> 
OF THE DEFINITIONCBUT NOT IN A STRING OR COMMENT) WILL BE 
REPLACED BY THE CORRESPONDING <ACTUAL TEXT PART>. 

4. ALTHOUGH THE INVOCATION LOOKS IDENTICAL TO A <PROCEDURE 
ST.ATEMENT> OR <SUBSCRIPTED VARIABLE), BEWARE OF "PASSING" AN 
<ARITHMETIC EXPRESSION) INTO A <DEFINE INVOCATION). IF THERE 
IS ANY DOUBT, SET THE $ CODE OPTION PRIOR TO THE INVOCATION 
AND VERIFY THE GENERATED CODE. IN MOST INSTANCES, EXTRA 
PARENTHESES INSIDE THE INVOCATION WILL ELIMINATE ANY PROBLEMS. 

5. THE WORD "COMMENT" IS RECOGNIZED IN A <TEXT>, WITH THE RESULT 
THAT IT AND ALL CHARACTERS UP TO AND INCLUDING THE NEXT 
SEMICOLON ARE DELETED FROM THE <TEXT) , NO <TEXT) MAY INCLUDE 
AN INCOMPLETE COMMENT. 

6. IN A <CLOSED TEXT LIST), THE CLOSED TEXTS ARE SEPARATED BY 
COMMAS, AND THE <CLOSED TEXT LIST) IS TERMINATED BY A RIGHT 
PARENTHESES OR BRACKET. 

7. IN A <CLOSED TEXT), A COMMA MAY APPEAR ONLY BETWEEN MATCHING 
BRACKETING SYMBOLS. NO UNMATCHED OR UNPAIRED BRACKETS MAY 
APPEAR. 

8. THE SCOPE OF A <FORMAL SYMBOL) IS THE <TEXT> OF THE DEFINITION 
IN WHICH THE <FORMAL SYMBOL) APPEARS. 

9. BRACKETING SYMBOLS ARE C ], ( ), AND THE GROUP CONSISTING OF 
THE FOLLOWING: 

DEFINE = # ; 

EXAMPLES: 



DEFINE DECLARATION 
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DEFINE FORI= FOR I-l STEP 1 UNTIL#,ADDUP = AxB+C/D# 



DEFINITION LISTS 



MOVER = - # 

SPLIT = GO TO#,FOOL(GRANT , MAYBE) = IF GRANT THEN 

MAYBE* 



DEFINITION: 



GRANTED (ARITHEXP) = ARITHEXP > NOTSO # 



FORMAL SYMBOL LISTS: 



IDENTIFIERONE, TWO 
ONLY 



TEXT: 



( 

PROCEDURE 

ANYID 

IF A THEN GO TO SOUTH ELSE BEGIN X-ZxQ;GO TO NORTH END 

EG; 



INVOCATION: 



GUARANTY ( X-Y+1 ) 
ACTUAL TEXT PART: 

(ERGO) 

[X-1 ;G0 TO L; ] 
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7.4. DIRECT ARRAY DECLARATIONS 



SYNTAX 



<DIRECT ARRAY DECLARATION> ::= DIRECT <DIRECT ARRAY KIND> 

ARRAY <ARRAY LIST> 
<DIRECT ARRAY KIND> ::= <EMPTY> / <TYPE> 

SEMANTICS: 



AN ARRAY WHICH IS DECLARED "DIRECT" PROVIDES FOR FASTER INPUT/ 
OUTPUT OPERATIONS. WHEN AN ARRAY IS DECLARED "DIRECT", THE ARRAY 
SPACE ITSELF CAN BE USED AS AN INPUT/OUTPUT BUFFER. 

EXAMPLES: 



DIRECT INTEGER ARRAY AEIO], 8115,15] 
DIRECT ARRAY A[H, 101 
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7.5. EVENT AND EVENT ARRAY DECLARATIONS 



SYNTAX: 



<EVENT DECLARATION> ::= <EVENT IDENTIFIER LIST> 

<EVENT IDENTIFIER LIST> ::= <EVENT IDENTIFIER> XADDRESS PART> / 

<EVENT LIST> , <EVENT IDENTIFIER) <ADDRESS PART> 
<EVENT IDENTIFIER) ::= <IDENTIFIER> 

<EVENT ARRAY DECLARATION) ::= EVENT ARRAY <EVENT SEGMENT LIST) 
<EVENT SEGMENT LIST) ::= <EVENT SEGMENT) / <EVENT SEGMENT LIST) , 

<EVENT SEGMENT) 
<EVENT SEGMENT) ::= <EVENT ARRAY LIST) I <BOUND LIST) ] 
<EVENT ARRAY LIST) ::= <EVENT ARRAY IDENTIFIER) <ADDRESS PART) / 

<EVENT ARRAY LIST) , <EVENT ARRAY IDENTIFIER) <ADDRES5 PART) 
<EVENT ARRAY IDENTIFIER) ::= <IDENTIFIER) 

SEMANT ICS: 



1. AN EVENT DECLARATION DEFINES THE IDENTIFIER OF A QUANTITY 
WHICH MAY BE USED TO RECORD AN OCCURRENCE. 

2. AN EVENT ARRAY DECLARATION DEFINES THE IDENTIFIER OF AN ARRAY 
OF THESE QUANTITIES. 

3. THE QUANTITIES ARE USED TO REPORT AN OCCURRENCE TO AN 
ASYNCHRONOUS PROCESS. 

EXAMPLES: 



EVENT DECLARATIONj^ 

EVENT El ,E2 = (3,H) 
EVENT ARRAY DECLARATION: 
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EVENT ARRAY E3= ( NONCE ) , E4 [ 73 ] , E5= ( -E ) [ 6 ] 
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7.6. FIELD DECLARATIONS 



SYNTAX: 



<FIELD DECLARATION> ::= FIELD <FIELD PART LIST> 
<FIELD PART LIST> ::= <FIELD PART> / <FIELD PART LIST> 

<FIELD PART> 
<FIELD PART> ::= <FIELD IDENTIFIER> = <FIELD> 
<FIELD IDENTIFIER) ::= <IDENTIFIER> 
<FIELD> ::= <ARITHMETIC EXPRESSION) : <ARITHMETIC EXPRESSION) 

SEMANTICS: 

1. THE BASIC B6700/B7700 WORD CONSISTS OF 51 BITS: 

A. BITS 50, 49, AND H8 ARE REFERRED TO AS "TAG" BITS. 
THESE TAG BITS CANNOT BE ADDRESSED DIRECTLY; 
HOWEVER, THEY MAY BE ADDRESSED BY THE RESERVED FIELD 
IDENTIFIER "TAG". 

B. THE BALANCE OF THE B6700/B7700 WORD IS REFERRED TO 
AS THE "INFORMATION FIELD". THE INFORMATION FIELD 
CONSISTS OF BITS 47 THROUGH ZERO, WHERE 47 IS THE 
BIT ON THE FAR LEFT AND ZERO IS THE BIT ON THE FAR 
RIGHT. 

2. "TAG" IS AN INTRINSIC FIELD; IT IS EQUIVALENT TO THE FIELD 50: 
3, EXCEPT THAT THE LATTER IS NOT EXPLICITLY PERMITTED. 

3. A FIELD DECLARATION DEFINES EACH IDENTIFIER IN ITS FIELD PART 
LIST AS A FIELD IDENTIFIER AND SPECIFIES THE FIELD THAT IT IS 
IDENTIFYING. 

EXAMPLES: 
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FIELD Al = 3:1, AZ = B: 1 
FIELD QUIZ = 20:21 
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7.7. FILE DECLARATIONS 



SYNTAX: 



<FILE DECLARATION> ::= <DIRECT SPECIFIER) FILE <FILE LIST> 

<FILE LIST> ::= <FILE LIST PART> / <FILE LIST>, <FILE LIST PART) 

<FILE LIST PART> ::= <FILE DESIGNATOR) / 

<FILE DESIGNATOR) ( <INITIAL ATTRIBUTE LIST) ) 

<FILE DESIGNATOR) ::= <FILE IDENTIFIER) / 
<DIRECT FILE IDENTIFIER) 

<FILE IDENTIFIER) ::= <IDENTIFIER) 

<DIRECT FILE IDENTIFIER) ::= <IDENTIFIER> 

<INITIAL ATTRIBUTE LIST) ::= <INITIAL ATTRIBUTE) / 
<INITIAL ATTRIBUTE LIST), <INITIAL ATTRIBUTE) 

< INITIAL ATTRIBUTE) : : = 

<FILE ATTRIBUTE NAME) = <FILE ATTRIBUTE VALUE) 

<FILE ATTRIBUTE NAME) ::= 

<ARITHMETIC-VALUED FILE ATTRIBUTE NAME) / 
<BOOLEAN-VALUED FILE ATTRIBUTE NAME) / 
<MNEMONIC-VALUED FILE ATTRIBUTE NAME) / 
<POINTER-VALUED FILE ATTRIBUTE NAME) 

<ARITHMETIC-VALUED FILE ATTRIBUTE NAME) ::= AREACLASS / AREAS / 
AREASIZE / ASSIGNTIME / ATTVALUE / ATTYPE / BLOCK / 
BLOCKSIZE / BUFFERS / CENSUS / COPIES / CYCLE / DATE / 
DIRECTION / DISPOSITION / ENABLEINPUT / ERRORTYPE / 
FAMILYSIZE / FILETYPE / LASTRECORD / 
LASTSTATION / LINENUM / MAXGENNO / MAXRECSIZE / 
MINRECSIZE / NEXTRECORD / PAGE / PAGESIZE / 
POPULATION / RECEPTIONS / RECORD / RECORDSZ / REEL / 
ROWADDRESS / ROWINUSE / SAVEFACTOR / 
SECURITYTYPE / SECURITYUSE / SCREEN / SERIALNO / 
SIZEMODE / SIZEOFFSET / SIZE2 / SPEED / STATE / 
TAPEREELRECORD / TRANSM I SS I ONO / TRANSMISSIONS / UNITNO / 
UNITS / UNITSLEFT / USEDATE / VERSION / WIDTH 
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<BOOLEAN-VALUED FILE ATTRIBUTE NAME> ::= ATTERR / BEGINATl / 

BREAK / COPEFILE / COPIES / CYLINDERMODE / DUPLICATED / 

EOF / INTE. CHANGE / NULINPUT / OPEN / OPTIONAL / PRESENT / 

READCHECK / RESIDENT / SINGLEPACK / UPDATE 
<MNEMONIC-VALUED FILE ATTRIBUTE NAME> ::= DENSITY / EXTMODE / 

FILEKIND / INTMODE / KIND / LABELTYPE / MYUSE / 

OTHERUSE / PARITY / PROTECTION / SECURITYTYPE / 

SECURITYUSE / SIZEMODE / SPEED / UNITS 
<POINTER-VALUED FILE ATTRIBUTE NAME> ::= FAMILY / FORMESSAGE / 

INTNAME / TITLE 
<FILE ATTRIBUTE VALUE> ::= <CONSTANT> / 

<FILE ATTRIBUTE MNEMONIC VALUE> 
<FILE ATTRIBUTE MNEMONIC VALUE> ::= <DENSITY MNEMONIO /. 

<ERRORTYPE MNEMONIO / <EXTMODE MNEMONIO / 

<FILEKIND MNEMONIO / <INTMODE MNEMONIO / <KIND MNEMONIO / 

<LABELTYPE MNEMONIO / <MYUSE MNEMONIO / 

<OTHERUS£ MNEMONIO / <PARITY MNEMONIO / 

<PRflTFr:T I nw MKirMniJirs / /'opoi lo t T\/Tvn>- Mk.^.-r^-. • -»- 
--.._. — .._ .w..»*iMi%,^ , xjc.^wKiiiiTrc. (iNt.nOrMiv^> / 

<SECURITYUSE MNEMONIO / <SIZEMODE MNEMONIO / 

<SPEED MNEMONIO / <STATE MNEMONIO / 

<UNITS MNEMONIO 

<DENSITY MNEMONIO ::= HIGH / MEDIUM / LOW / 
SUPER 

<ERRORTYPE MNEMONIO ::= NOERROR / SUNOTREADY / 
READPARITYERROR / READCHECKFA I LURE / 

<EXTMODE MNEMONIO ::= SINGLE / BCL / EBCDIC 

<FILEKIND MNEMONIO ::= SYSTEMD I RECTORY / VERS I OND I RECTORY / 
DIRECTORY / CONTROLDECK / BACKUPDISK / 
RECONSTRUCTIONFILE / SYSTEMD I RF I LE / 
COMPILERCODE / LIBRARYCODE / INTRI NS I CF I LE / 
MCPCODEFILE / ALGOLCODE / COBOLCODE / FORTRANCODE / 
XALGOLCODE / PLICODE / JOVIALCODE / ESPOLCOOE / 
DCALGOLCODE / BASICCODE / XFORTRANCODE / BOUNOCODE / 
CODEFILE / ALGOLSYMBOL / COBOLSYMBOL / FORTRANSYMBOL / 
XALGOLSYMBOL / PLISYMBOL / JOVIALSYMBOL / ESPQLSYMBOL / 
DCALGOLSYMBOL / BASICSYMBOL / XFORTRANSYMBOL / DATA 
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<INTMODE MNEMONIO ::= SINGLE / BCL / EBCDIC / ASCII 
<KIND MNEMONIO ::= DISK / DISKPACK / DISPLAY / PAPER / 

PAPERPUNCH / PAPER.^EADER / PETAPE / PRINTER / PUNCH / 

READER / REMOTE / TAPE / TAPE? / TAPE9 
<LABELTYPE MNEMONIO ::= STANDARD / OMITTED / OMITTEDEOF 
<MYUSE MNEMONIO ::« CLOSED / IN / OUT / 10 
<OTHERUSE MNEMONIO ::= SECURED / IN / OUT / 10 
<PARITY MNEMONIO ::= STANDARD / NONSTANDARD 
<PROTECTION MNEMONIO ::= TEMPORARY / SAVE / PROTECTED 
<SECURITYTYPE MNEMONIO ::= PRIVATE / CLASSA / CLASSB / 

CLASSC 
<SECURITYUSE MNEMONIO ::= SECURED / IN / OUT / 10 
<SI2EM0DE MNEMONIO ::= SINGLE / HEX / BCL / EBCDIC 
<SPEED MNEMONIO ::= FAST / MEDIUMFAST / MEDIUMSLOW / 

SLOM 
<STATE MNEMONIO ::= NORMAL / ATEND / PARITYERROR / 

DATA ERROR / LOCKEDOUT / NOINPUT / BREAKHERE / 

TIMEOUT / NEWUSER 
<UN1TS MNEMONIO ::= WORDS / CHARACTERS 

SEMANTICS: 



<FILE DECLARATION>S MAY NOT BE DECLARED IN THE OUTER BLOCK. NOR MAY 
THEY BE USED IN ESPOL INTRINSICS. 

A <FILE DECLARATION) ASSOCIATES AN <IDENTIFIER> WITH A FILE. THAT 
FILE-S ATTRIBUTES NEED NOT ALL BE SPECIFIED IN THE <FILE 
DECLARATION). THOSE ATTRIBUTES NOT SPECIFIED IN THE <FILE 
DECLARATION) MUST BE SET BY CALLING THE MCP PROCEDURE 
"ATTRIBUTEHANDLER" USING THE APPROPRIATE PARAMETER ( S ) . 

A <BOOLEAN-VALUED FILE ATTRIBUTE NAME) APPEARING WITHOUT THE "= 
<L06ICAL VALUE)" PART IMPLIES '• = TRUE". 

REFER TO THE B6700 I/O SUBSYSTEM INFORMATION MANUAL (5000185) FOR 
DESCRIPTIONS AND EXPLANATIONS OF THE. FILE ATTRIBUTES. 
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EXAMPLES: 



FILE LINE (KIND = PRINTER, BUFFERS=1, MAXRECS I ZE= 1 7 ) ; 
FILE FID (KIND = TaPE9, T I TLE= " CLUES " , DENS I T Y = H I GH ) , 
FYLE (KIND=DISK); 



17 
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7.8. INTERRUPT DECLARATIONS 



SYNTAX: 



<INTERRUPT DECLARATION> ::= INTERRUPT <INTERRUPT SEGMENT) 

<INTERRUPT SEGMENT) ::= <INTERRUPT IDENTIFIER); <STATEMENT) 

<INTERRUPT IDENTIFIER) ::= <IDENTIFIER> 

SEMANTICS: 



1. INTERRUPT DECLARATIONS PROVIDE A MEANS OF FORCING A PROCESS TO 
DEPART FROM ITS CURRENT POINT OF CONTROL AND EXECUTE THE 
STATEMENT ASSOCIATED WITH THE INTERRUPT DECLARATION. 

2. IF THE PROCESS IS INACTIVE WHEN THE EVENT IS CAUSED, MORE THAN 
ONE INTERRUPT STATEMENT MAY BE PENDING WHEN THE PROCESS IS 
REACTIVATED. IN THIS CASE, THE INTERRUPT STATEMENTS ARE 
PROCESSED IN THE BLOCK ORDER, WITH THE OUTERMOST BLOCKS FIRST, 
BEFORE RETURN IS MADE TO THE REACTIVATION POINT. 

3. AN INTERRUPT MUST BE ENABLED AND ATTACHED TO AN EVENT BEFORE 
IT CAN HAVE ANY EFFECT. 

AN INTERRUPT IS ATTACHED TO AN EVENT BY USING AN <ATTACH 
STATEMENT). THIS STATEMENT IMPLICITLY CAUSES THE INTERRUPT 

(BEING ATTACHED) TO BE ENABLED. THE <DETACH STATEMENT) SEVERS 
THE ASSOCIATION BETWEEN THE INTERRUPT AND THE EVENT. IT ALSO 

IMPLICITLY CAUSES THE INTERRUPT TO BE DISABLED. 

IF AN INTERRUPT IS ALREADY ATTACHED TO AN EVENT, THE INTERRUPT 
MAY BE ENABLED OR DISABLED BY AN <ENABLE STATEMENT) OR A 
<DISABLE STATEMENT). USING ONE OF THESE TWO STATEMENTS DOES 
NOT AFFECT THE ASSOC I AT I ON BETWEEN AN INTERRUPT AND THE EVENT 
ATTACHED TO IT. 
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WITHIN ANY BLOCK, TWO INTERRUPT DECLARATIONS MAY REFERENCE THE 
SAME EVENT. 



EXAMPLES: 



INTERRUPT II; A := A+B; 
INTERRUPT IE; GO TO LBL; 
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7.9. LABEL DECLARATIONS 



SYNTAX: 



<LABEL DECLARATION) ::= LABEL <LABEL LIST> 

<LABEL LIST> ::= <LABEL IDENTIFIER) / <LABEL LIST> 

<LABEL IDENTIFIER) 
<LABEL IDENTIFIER) : : = <IDENTIFIER) 

SEMANTICS: 



1. A DECLARED LABEL DECLARATION DEFINES EACH IDENTIFIER IN ITS 
LABEL LIST AS A LABEL IDENTIFIER. 

E. A LABEL IDENTIFIER MUST APPEAR IN A LABEL DECLARATION IN THE 
HEAD OF THE BLOCK IN WHICH IT IS USED TO LABEL A STATEMENT. 

3. A LABEL IDENTIFIER NEED NOT BE DECLARED IF ITS FIRST 

APPEARANCE IN THE BLOCK IS IN A GO TO STATEMENT AND NO 

NONLOCAL LABEL WITH THE SAME IDENTIFIER HAS PREVIOUSLY 
APPEARED. 

EXAMPLES: 



LABEL DECLARATIONS: 

LABEL FOG; 
LABEL L7.L8; 

LABEL LISTS: 

START ,EXIT ,LOOP 
NEXT 
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7.10. LAYOUT DECLARATIONS 



SYNTAX 



<LAYOUT DECLARATION> ::= LAYOUT <LAYOUT PART LIST> 
<LAYOUT PART LIST> ::= <LAYOUT PART) / <LAYOUT PART LIST> 

<LAYOUT PART> 
<LAYOUT PART> ::= <LAYOUT IDENTIFIER) (<LAYOUT ITEM LIST>) 
<LAYOUT IDENTIFIER) ::= <IDENTIFIER> 
<LAYOUT ITEM LIST) ::= <LAYOUT ITEM) / <LAYOUT ITEM LIST) 

<LAYOUT ITEM) 
<LAYOUT ITEM) ::= <LAYOUT FIELD) <FIELD VALUE PART) 
<LAYOUT FIELD) ::= <FIELD PART) / <FIELD) / <FIELD IDENTIFIER) 
<FIELD VALUE PART) ::= <EMPTY) / 

<REPLACEMENT OPERATOR) <UNSIGNED INTEGER) 

SEMANTICS: 



1. A LAYOUT DECLARATION IDENTIFIES EACH IDENTIFIER IN ITS LAYOUT 
PART LIST AS A LAYOUT IDENTIFIER AND SPECIFIES A LAYOUT ITEM 
LIST. 

E. A LAYOUT ITEM LIST IS COMPOSED OF ONE OR MORE FIELDS, REFERRED 
TO AS LAYOUT ITEMS. 

3. A LAYOUT ITEM MAY BE ANY OF THE FOLLOWING: 

A. A PREVIOUSLY DECLARED FIELD IDENTIFIER. 

B. AN UNIDENTIFIED FIELD. 

C. A FIELD PART. 

4. A LAYOUT ITEM MAY SPECIFY A DEFAULT VALUE FOR THE FIELD. IF 
NO DEFAULT VALUE IS GIVEN AND NO VALUE IS ASSIGNED. THE FIELD 
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IS IGNORED 



EXAMPLES 



LAYOUT C2S (7:6 - 5 , QA = B:6 - 92, QUIZ), C3S (4:2 - 3) 
LAYOUT LOOK (42:6 - 9 , QA = BxQ-R:2) 
Bl = B:6 
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7.11. MONITOR DECLARATIONS 



SYNTAX 



<MONITOR DECLARATION> ::= MONITOR <PROCEDURE IDENTIFIER) 

( <MONITOR LIST> ) 
<MONITOR LIST> ::= <MONITORED ITEM> / 

<MONITOR LIST> , <MONITORED ITEM> 
<MONITORED ITEM> ::= <SIMPLE VARIABLE) / <ARRAY IDENTIFIER) 

SEMANTICS: 



WITHIN THE SCOPE OF A MONITOR DECLARATION. THE PROCEDURE IDENTIFIED 
IN THE MONITOR DECLARATION WILL BE EXECUTED WHENEVER A VALUE IS TO 
BE ASSIGNED --BY MEANS OF THE ASSIGNMENT STATEMENT-- TO A MONITORED 
ITEM. THE PROCEDURE MUST HAVE THE SAME TYPE AS THE ITEM AND MUST 
RETURN THE VALUE TO BE ASSIGNED TO THE ITEM. THE PROCEDURE MAY 
ONLY HAVE TWO PARAMETERS. THE PARAMETERS MUST BE SPECIFIED AS 
VALUE PARAMETERS. THE FIRST PARAMETER CORRESPONDS TO THE FIRST 
EIGHT CHARACTERS OF THE IDENTIFIER OF THE MONITORED ITEM. THE 
SECOND PARAMETER CORRESPONDS TO THE VALUE OF THE EXPRESSION. 
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7.12. PICTURE DECLARATIONS 



SYNTAX 



<PICTURE DECLARATION> ::= <SAVE OR OWN> PICTURE <PICTURE PART LIST) 

<SAVE OR OWN) ::= SAVE / OWN 

<PICTURE PART LIST) ::= <PICTURE PART) / <PICTURE PART LIST) , 

<PICTURE PART) 
<PICTURE PART) ::= <PICTURE IDENTIFIER) ( <PICTURE) ) 
<PICTURE IDENTIFIER) ::= <IDENTIFIER) 

<PICTURE> ::= <PICTURE SYMBOL) / <PICTURE) <PICTURE SYMBOL) 
<PICTURE SYMBOL) ::= " < HEXADEC I MAL STRING)" / "<BCL STRING)" / 

"<ASCII STRING)" / "<EBCDIC STRING)" / 

<PICTURE CHARACTER) <REPEAT PART) / 

<CONTROL CHARACTER) / < I NTRODUCT I ON) / 

<SKIP CHARACTER) <REPEAT PART) / 

<SINGLE PICTURE CHARACTER) 
<REPEAT PART) ::= <EMPTY) / ( <UNSIGNED INTEGER) ) / C») 
<CONTROL CHARACTER) ::= 4 / B / 7 / 8 / : 
<SKIP CHARACTER) ::= ) / < 

<INTRODUCTION) ::= < I NTRODUCT I ON CODE) <NEW CHARACTER) 
<INTRODUCTION CODE) ::=B/C/M/N/P/U 
<NEW CHARACTER) ::= <STRING CHARACTER) / " 
<SINGLE PICTURE CHARACTER) ::= J / S 
<PICTURE CHARACTER) ::= A / D / E / F / I / Q / R / X / Z / 9 

SEMANTICS: 



THE PICTURE DECLARATION PROVIDES A CONSTRUCT FOR GENERALIZED 
CHARACTER EDITING. THE FOLLOWING EDITING OPERATIONS MAY BE 

PERFORMED: 

A. UNCONDITIONAL CHARACTER MOVES. 

B. MOVE CHARACTERS WITH LEADING ZERO EDITING. 



B6700/B7700 ESPOL ^ ^^ 



C. MOVE CHARACTERS WITH LEADING ZERO EDITING AND FLOATING 
CHARACTER INSERTION. 

D. MOVE CHARACTERS WITH CONDITIONAL CHARACTER INSERTION. 

E. MOVE NUMBERIC PART OF CHARACTERS ONLY. 

F. MOVE CHARACTERS WITH UNCONDITIONAL CHARACTER INSERTION. 

G. SKIP SOURCE CHARACTERS (FORWARD AND REVERSE). 

H. INSERT OVERPUNCH SIGN ON THE PREVIOUS CHARACTER. 

2. A PICTURE CONSISTS OF A NAMED STRING OF EDITING SYMBOLS WHICH 
ARE ENCLOSED IN PARENTHESES. THE PICTURE EDITING SYMBOLS 
LISTED BELOW MAY BE COMBINED IN ANY ORDER TO PERFORM A WIDE 
RANGE OF EDITING FUNCTIONS. "OWN" PICTURES PRODUCE IN-LINE 
CODE. 

3. IF THE REPEAT PART IS EMPTY, IT IS ASSUMED TO BE EQUAL TO ONE. 
IF THE REPEAT PART IS OF THE FORM "(*)", AN UNSIGNED INTEGER 
VALUE IS EXPECTED FROM THE <REPEAT PARAMETERS> IN A STRING 
TRANSFER STATEMENT. 

H. THE FOLLOWING OUTPUT CHARACTERS ARE ASSUMED FOR THE 

INTRODUCTION CODES. ANOTHER CHARACTER MAY BE SUBSTITUTED FOR 
THE ASSUMED CHARACTER BY THE USE OF THE INTRODUCTION PHRASE, 
no ucriiNcu lN inc. stNiAX. 

OUTPUT INTRODUCTION NORMAL 

CHARACTER CODE USE 



SPACE(BLANK) B REPLACEMENT OF LEADING ZEROS 

C CONDITIONAL INSERT CHARACTER 

M CHARACTER INSERTION IF MINUS 
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N UNCONDITIONAL INSERT CHARACTER. 

+ P CHARACTER INSERTION IF PLUS. 

$ U FLOATING CHARACTER INSERTION. 

5. THE CONTROL CHARACTERS SHOWN BELOW CAUSE THE FOLLOWING ACTION: 

H SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO FOUR BITS. 

6 SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO SIX BITS. 

7 SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO SEVEN BITS. 

8 SET THE DEFAULT CHARACTER SIZE OF INSERTED 
CHARACTERS AND STRINGS TO EIGHT BITS. 

: REINITIATES LEADING ZERO REPLACEMENT. 

6. QUOTED STRINGS ARE INSERTED UNCONDITIONALLY IN THE DESTINATION 
STRING. THE CONTROL CHARACTERS ^,6,7,AND 8 TELL THE COMPILER 
WHICH CHARACTER SET TO EXPECT. BCL IS THE DEFAULT CHARACTER 
SET. 

7. THE SINGLE PICTURE CHARACTERS PERFORM THE FOLLOWING ACTION: 

J IF A MOVE WITH FLOAT (E OR F) HAS NOT INSERTED A 
FLOAT CHARACTER, TERMINATE THE FLOAT AND INSERT THE 
"U" CHARACTER. OTHERWISE, PERFORM NO OPERATION. 

S INSERT A SINGLE "P" CHARACTER IF THE SIGN IS PLUS. 
OTHERWISE, INSERT A SINGLE "M" CHARACTER. 

8. THE PICTURE CHARACTERS LISTED BELOW PERFORM THE FOLLOWING 
ACTION: 
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A 



D 



MOVE THE NUMBER OF CHARACTERS SPECIFIED BY THE 
REPEAT FIELD. 

IF AN E OR F FLOAT HAS NOT ENDED, INSERT THE "B" 
CHARACTER. OTHERWISE, INSERT THE "C" CHARACTER. 

E MOVE THE NUMERIC PART ONLY FOR THE NUMBER OF 
CHARACTERS SPECIFIED BY THE REPEAT FIELD. SUPPRESS 
LEADING ZEROS BY SUBSTITUTING THE "B" CHARACTER. IF 
THE SIGN IS PLUS, INSERT A "P" CHARACTER IN FRONT OF 
THE FIRST NONZERO NUMBER. OTHERWISE, INSERT AN " M " 
CHARACTER. END THE FLOAT ACTION. 

F PERFORM A MOVE NUMERIC WITH LEADING ZEROS REPLACED 
BY THE "B" CHARACTER. INSERT A "U" CHARACTER IN 
FRONT OF THE FIRST NONZERO NUMBER. END THE FLOAT 
ACTION. 

I INSERT THE " N " CHARACTER UNCONDITIONALLY. 

Q BACK UP THE NUMBER OF CHARACTERS INDICATED BY THE 
<REPEAT PART> AND INSERT A SIGN OVERPUNCH. 



R 



IF AN E OR F FLOAT HAS NOT ENDED, INSERT THE " P " 
CHARACTER. OTHERWISE, INSERT THE "M" CHARACTER. 



X SKIP THE DESTINATION POINTER FORWARD BY THE NUMBER 
OF CHARACTERS SPECIFIED IN THE REPEAT FIELD. 

Z PERFORM A MOVE NUMERIC WITH LEADING ZEROS REPLACED 
BY BLANKS. 

9 MOVE THE NUMERIC PART ONLY OF THE NUMBER OF 
CHARACTERS SPECIFIED BY THE REPEAT FIELD. 

9. THE PICTURE SKIP CHARACTERS PERFORM THE FOLLOWING ACTION: 
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SKIP THE SOURCE POINTER BACKWARDS BY THE NUMBER OF 
CHARACTERS SPECIFIED IN THE REPEAT FIELD. 



SKIP THE SOURCE POINTER FORWARD BY THE NUMBER OF 
CHARACTERS SPECIFIED IN THE REPEAT FIELD. 



7- 29 
B6700/B7700 ESPOL 



7.13. PROCEDURE DECLARATIONS 



SYNTAX : 

<PROCEDURE DECLARATION> ::= <SAVE PART) <PROCEDURE TYPE> PROCEDURE 

<PROCEDURE HEADING) <PRGCEDURE BODY) 
<SAVE PART) ::= <EMPTY) / SAVE / SAVE 1 
<PROCEDURE TYPE) ::= <EMPTY) / <TYPE) 
<PROCEDURE HEADING) ::= <PROCEDURE IDENTIFIER) <ADDRESS PART) 

<FORMAL PARAMETER PART); 
<PROCEDURE IDENTIFIER) ::= <IDENTIFIER) 
<FORMAL PARAMETER PART) ::= <EMPTY) / (<FORMAL PARAMETER LIST)) ; 

<VALUE PART) <SPEC I F I CAT I ON PART) 
<FORMAL PARAMETER LIST) ::= <FORMAL PARAMETER)/ 

<FORMAL PARAMETER LIST) <PARAMETER DELIMITER) 

<FORMAL PARAMETER) 
,L PARAMETER) ::= < 
<VALUE PART) ::= <EMPTY) / VALUE <IDENTIFIER LIST) ; 
<SPECIFICATION PART) ::= < SPEC I F I CAT I ON) / <SPEC I F I CAT I ON PART) ; 

<SPECIFICATION) 
<SPECIFICATION) ::= <SPECIFIER) <IDENTIFIER LIST) / 

<ARRAY SPECIFICATION) 
<SPECIFIER) ::= <TYPE> / <PROCEDURE TYPE) PROCEDURE / 

QUEUE / EVENT / PICTURE 
<IDENTIFIER LIST) ::= <IDENTIFIER) / <IDENTIFIER LIST) , 

<IDENTIFIER) 
<ARRAY SPECIFICATION) ::= <DIRECT SPECIFIER) <ARRAY TYPE) ARRAY 

sakRat sPEl^ii-iER i_ 1 a I / 
<DIRECT SPECIFIER) : : = <EMPTY) / DIRECT 
<ARRAY TYPE) ::= <EMPTY) / <TYPE> / EVENT 
<ARRAY SPECIFIER LIST) ::= <ARRAY SPECIFIER) / 

<ARRAY SPECIFIER LIST), <ARRAY SPECIFIER) 
<ARRAY SPECIFIER) ::= <ARRAY IDENTIFIER LIST) [ <BOUND SPECIFIER) I 
<ARRAY IDENTIFIER LIST) ::= <ARRAY IDENTIFIER) / 

<ARRAY IDENTIFIER LIST) . <ARRAY IDENTIFIER) 
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<BOUND SPECIFIER> ::= * / <BOUND SPECIFIER) , * 

<PROCEDURE BODY> ::= <STATEMENT> / FORWARD / EXTERNAL / NULL 

SEMANTICS: 



1. A PROCEDURE DECLARATION DEFINES THE PROCEDURE IDENTIFIER AS 
THE NAME OF A PROCEDURE. 

a. A <SAVE PART> OF "SAVE" INDICATES THAT THE CODE FOR THE 
PROCEDURE CURRENTLY BEING DECLARED IS TO BE IN THE SAME 
SEGMENT AS THE BLOCK IN WHICH IT IS DECLARED. THUS THE 
COMPILER WILL NOT CREATE A NEW SEGMENT FOR THE PROCEDURE. 
"SAVE" ALSO SPECIFIES CONTROL STATE. 

3. A <SAVE PART> OF "SAVE 1" INDICATES THAT THE PROCEDURE BEING 
DECLARED IS AN "INITIALIZATION" PROCEDURE. THE CODE FOR THE 
PROCEDURE WILL BE AT THE END OF THE INITIAL BLOCK OF 
INFORMATION WHICH IS LOADED BY THE HARDWARE. THERE WILL BE 
THREE WORDS OF INFORMATION BETWEEN THE "SAVE 1 CODE" AND THE 
REST OF THE INITIAL BLOCK, IN ORDER TO FACILITATE RELOCATION 
OF THE AREA AFTER INITIALIZATION IS COMPLETE. 

4. THE DIRECTIONS GIVEN FOR THE TYPE DECLARATION ADDRESS PART 
APPLY TO PROCEDURE DECLARATIONS. THE ADDRESS SPECIFIED MUST 
BE THAT OF A PROGRAM CONTROL WORD OR AN INDIRECT REFERENCE 
WORD POINTING TO A PROGRAM CONTROL WORD. 

5. THE VALUE PART SPECIFIES WHICH FORMAL PARAMETERS ARE TO BE 
CALLED BY VALUE. WHEN A FORMAL PARAMETER IS CALLED BY VALUE, 
THE FORMAL PARAMETER IS SET TO THE VALUE OF THE CORRESPONDING 
ACTUAL PARAMETER. THEREAFTER, THE FORMAL PARAMETER IS HANDLED 
AS A VARIABLE THAT IS LOCAL TO THE PROCEDURE BODY. THAT IS, 
ANY CHANGE OF VALUE OF THE VARIABLE WILL NOT RAMIFY OUTSIDE 
THE PROCEDURE BODY. 

6. ONLY ARITHMETIC, BOOLEAN, POINTER, AND REFERENCE EXPRESSIONS 
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MAY BE GIVEN AS ACTUAL PARAMETERS TO BE CALLED BY VALUE. 
THESE EXPRESSIONS NILL BE EVALUATED ONCE, BEFORE ENTRY INTO 
THE PROCEDURE BODY. 

7. FORMAL PARAMETERS NOT IN THE VALUE PART ARE CALLED BY NAME (AN 
EXCEPTION IS THE EVENT FORMAL PARAMETER; SEE BELOW). THIS 
MEANS THAT WHEREVER A FORMAL PARAMETER -- CALLED BY NAME -- 
APPEARS IN THE PROCEDURE BODY. THE FORMAL PARAMETER IS 
REPLACED BY THE ACTUAL PARAMETER. 

EVENT FORMAL PARAMETERS ARE CALLED BY REFERENCE (NOT IN ANY 
WAY CONNECTED WITH THE ESPOL REFERENCE TYPE). CALL BY 
REFERENCE DIFFERS FROM CALL BY NAME IN THAT WHEN THE ACTUAL 
PARAMETER IS A SUBSCRIPTED VARIABLE, THE REFERENCED ARRAY 
ELEMENT IS DETERMINED AT THE TIME OF CALL. IT IS THIS ARRAY 
ELEMENT WHICH IS ACCESSED AT EACH APPEARANCE OF THE FORMAL 
PARAMETER WITHIN THE PROCEDURE BODY. 

8. EVERY FORMAL PARAMETER MUST APPEAR IN THE SPECIFICATION PART. 

9. AN "*" MUST APPEAR IN A BOUND SPECIFIER FOR EACH DIMENSION OF 
THE ARRAY. 

10. ESPOL PROCEDURES ARE RECURSIVE. 

11. IN CERTAIN SITUATIONS WHERE PROCEDURES ARE CALLED RECURSIVELY, 
IT IS NECESSARY TO CALL A PROCEDURE THAT HAS NOT BEEN DECLARED 
THE DECLARATOR "FORWARD" IS USED IN THIS CIRCUMSTANCE. THAT 
IS, THERE IS FIRST AN APPROPRIATE PROCEDURE DECLARATION, WITH 
THE PROCEDURE BODY REPLACED BY "FORWARD". THEN THE CALL ON THE 
PROCEDURE, AND LATER, THE COMPLETE PROCEDURE DECLARATION. 

12. A <PROCEDURE BODY> OF "EXTERNAL" INDICATES THAT THE PROCEDURE 
WILL BE BOUND IN LATER AND NOT COMPILED IN NOW. 

13. IF "NULL" IS SPECIFIED AS THE <PROCEDURE BODY> . THE COMPILER 
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GENERATES NOTHING FURTHER. THIS IS TYPICALLY USED WHEN THE 
PROGRAMMER KNOWS MORE THAN THE COMPILER. 



EXAMPLES: 



PROCEDURE DECLARATIONS: 

PROCEDURE FAKE;X-X+Z 

PROCEDURE NEXT(A); VALUE A; REAL A; X-A+1 

PROCEDURE NEXT(A); VALUE A; REAL A; FORWARD 

PROCEDURE HEADING^ 

COMMUNE = INTRIN (A); REAL A; 
FORMAL PARAMETER PARTS: 

(A,B,C); VALUE A; REAL A.B.C; 

CABSTRACT, DEGENERATE) ; VALUE ABSTRACT; REAL ABSTRACT; 

PROCEDURE DEGENERATE; 

FORMAL PARAMETER LISTSj^ 

A.B.C 

X) "VALUE OF EXPRESSION X PLUS 2 "(CALCRULE 

VALUE PART: 



VALUE X.Y.Z 
SPECIFICATION PART 



INTEGER N; ARRAY A , B , C , X 1 , X2 [ * 1 ; ALPHA ARRAY X3C*]; 
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SPECIFICATIONS: 

INTEGER N,0,P,Q 

PROCEDURE MIN, MAX, FIX 

QUEUE X.Y.Z 

EVENT A,B,C 

QUEUE ARRAY FREDt*] 

ARRAY SPECIFICATIONS: 

REAL ARRAY GYM [*, *] 

BOOLEAN ARRAY WADSUP [*.*,*], CUMON [ * , * ] 

ARRAY SPECIFIER LISTS: 

GIGOI*] 

HERE[*] .THERE!*, *,* ,*] 

ARRAY SPECIFIER: 

XI , Xa, X3 [*] 
PROCEDURE BODIES: 



BEGIN I-x+QxR;V-I+RAYG(Q) ;END SAMPLE 
FORWARD 
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7.14. QUEUE AND QUEUE ARRAY DECLARATIONS 



SYNTAX: 



<QUEUE DECLARATION> ::= QUEUE <QUEUE HEAD> <QUEUE BODY> 
<QUEUE ARRAY DECLARATION> ::= QUEUE ARRAY <QUEUE ARRAY HEAD> 

[<INDEX BOUND>] <QUEUE BODY> 
<QUEUE HEAD> ::= <QUEUE IDENTIFIER> <INTERNAL NAME PART> 
<QUEUE ARRAY HEAD> ::= <QUEUE ARRAY IDENTiriER> 

< INTERNAL NAME PART> 
<INDEX BOUND> ::= <ARITHMETIC EXPRESSION> 

<INTERNAL NAME PART> ::= <EMPTY> / : <SECOND NAME> <ADDRESS PART> 
<SECOND NAME> ::= <IDENTIFIER> 

<QUEUE BODY> ::= <ENTRY DESCRIPTION> ; <ALGORITHM PART> 
<ENTRY DESCRIPTION> ::= (<ENTRY ITEM LIST>) ; <VALUE PART> ; 

<5PECIFICATI0N PART> 
<ENTRY ITEM LIST> ::= <ITEM LIST> <INVISIBLE ITEM LIST> 
<ITEM LIST> ::= <ITEM IDENTIFIER> / 

<ITEM LIST> <PARAMETER DELIMITER> <ITEM IDENTIFIER> 
<INVISIBLE ITEM LIST> ::= < I TEM LIST> 

<ALGORITHM PART> ::= <EMPTY> / USING <ALGORITHM LIST> 
<ALGORITHM LIST> : : = <ALGORITHM> / <ALGORITHM> : <ALGORITHM LIST> 
<ALGORITHM> : : = <BOOLEAN ALGORITHM IDENTIFIER> IF 

<BOOLEAN EXPRESSION) / <REFERENCE ALGORITHM IDENTIFIER) IS 
<REFERENCE EXPRESSION) / TO <ALGORITHM IDENTIFIER) , 
<STATEMENT> / <LOCK SPECIFICATION) / 
<INTEGER ALGORITHM IDENTIFIER), <STATEMENT) 
<LOCK SPECIFICATION) ::= LOCKED / LOCKED <QUEUE NAME) 
<QUEUE IDENTIFIER) ::= <IDENTIFIER> 
<QUEUE ARRAY IDENTIFIER) ::= <IDENTIFIER) 
<REFERENCE ALGORITHM IDENTIFIER) ::= ALLOCATE / NEXT / LAST / 

FIRST / PRIOR 
<ALGORITHM IDENTIFIER) ::= INSERT / REMOVE / DELINK / <IDENTIFIER> 
<BOOLEAN ALGORITHM IDENTIFIER) ::= EMPTY / FULL 
<INTEGER ALGORITHM IDENTIFIER) ::= POPULATION 
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SEMANTICS: 



1. A QUEUE IS AN ORDERED LIST OF ENTRIES. EACH ENTRY HAS THE 
FORM OF AN <ARRAY ROW>, WITH ONE WORD FOR EACH <ITEM 
IDENTIFIER> IN THE <ENTRY ITEM LIST>. 

2. A QUEUE ARRAY IS AN ARRAY OF QUEUES. THE <INDEX BOUND> 
DESIGNATES THE NUMBER OF QUEUES INVOLVED AND IS A STRICT UPPER 
BOUND FOR THE QUEUE ARRAY SUBSCRIPTS. 

3. THE <ENTRY ITEM LIST> IS IN EFFECT A DECLARATION FOR EACH OF 
THE <ITEM IDENTIFIER>S APPEARING IN IT. THOSE <ITEM 
IDENTIFIER>S APPEARING IN THE <INVISIBLE ITEM LIST> ARE 
UNDERSTOOD TO BE LOCAL TO THE QUEUE DECLARATION AND MAY NOT BE 
REFERENCED EXCEPT IN THE <QUEUE BODY> . THE REMAINING <ITEM 
IDENTIFIER>S WILL BE LOCAL TO THE BLOCK IN WHICH THE QUEUE IS 
DECLARED. 

4. WHEN AN <ENTRY EXPRESSION> IS CREATED, THE ELEMENTS IN THE 
<ACTUAL ITEM LIST> MUST BE IN A ONE-TO-ONE-CORRESPONDENCE WITH 
THE <ITEM IDENTIFIER>S IN THE <ITEM LIST> OF THE <ENTRY 
DESCRIPTION> FOR THE QUEUE IN QUESTION. THE INVISIBLE <ITEM 
IDENTIFIER>S WILL NOT HAVE CORRESPONDING <ACTUAL PARAMETER>S. 

5. THE <SECOND NAME> OF THE QUEUE OR QUEUE ARRAY IS LOCAL TO THE 
<QUEUE BODY>. IT IS USED WITHIN THE <QUEUE BODY> WHENEVER IT 
IS NECESSARY TO REFER TO THE QUEUE ITSELF IN A SITUATION WHICH 
WOULD OTHERWISE LEAD TO A RECURSIVE CALL ON THE QUEUE 
ALGORITHMS. 

6. THE RESERVED WORD "ENTRY" IS LOCAL TO THE <QUEUE BODY>. IT IS 
USED TO REFER TO THE ENTRY WHICH IS CURRENTLY BEING PLACED IN 
OR REMOVED FROM THE QUEUE. FOR <QUEUE ARRAY DECL ARAT I ON>S 
THERE IS ALSO THE RESERVED WORD "INDEX" WHICH IS LOCAL TO THE 
<QUEUE BODY>. "INDEX" IS THE CURRENT SUBSCRIPT TO THE QUEUE 
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ARRAY. 



7. THE "ALLOCATE" ALGORITHM WILL BE INVOKED WHENEVER IT IS 
NECESSARY TO ALLOCATE SPACE FOR AN ENTRY OR AN <ENTRY 
EXPRESSION>. IF NO "ALLOCATE" ALGORITHM IS GIVEN, THEN AN 
<ENTRY EXPRESSION) USING THE <QUEUE NAME> CANNOT BE USED. 

8. THE "INSERT" ALGORITHM IS USED TO INSERT NEW ENTRIES IN THE 
QUEUE. IT WILL BE CALLED EACH TIME A <QUEUE ASSIGNMENT) IS 
USED. THUS A <QUEUE ASSIGNMENT) MAY NOT BE USED FOR A QUEUE 
LACKING A "INSERT" ALGORITHM. 

9. THE QUEUE ALGORITHMS USED BY A QUEUE ARE LOCAL TO THE BLOCK IN 
WHICH THE QUEUE IS DECLARED. IN AN EXPLICIT CALL ON A QUEUE 
ALGORITHM, THE <ACTUAL PARAMETER LIST) WILL HAVE THE FOLLOWING 
GENERAL FORMAT: <QUEUE NAME), <REFERENCE EXPRESSION). 
<ARITHMETIC EXPRESSION). THE <QUEUE NAME) PARAMETER MUST 
ALWAYS BE PRESENT. THE <REFERENCE EXPRESSION) IS NOT REQUIRED 
FOR ALL ALGORITHMS; WHEN USED, IT IS PASSED TO "ENTRY" IN THE 
<QUEUE BODY). THE <ARITHMETIC EXPRESSION) IS REQUIRED ONLY 
FOR QUEUE ARRAYS. AND EVEN THEN IT MAY NOT BE NECESSARY. THE 
<ARITHMETIC EXPRESSION) IS PASSED TO "INDEX" IN THE <QUEUE 
BODY) OF THE <QUEUE ARRAY DECLARATION). THE FOLLOWING TABLE 
SHOULD BE HELPFUL. 



ALGORITHM 


REFERENCE 


INTEGER 


REMOVE 


NO 


YES 


INSERT 


YES 


YES 


DELINK 


YES 


YES 


ALLOCATE 


NO 


NO 


NEXT 


NO 


YES 


LAST 


NO 


YES 


FIRST 


NO 


YES 


PRIOR 


YES 


YES 


EMPTY 


NO 


YES 


FULL 


NO 


YES 
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POPULATION NO YES 

ALL OTHERS YES YES 



EXAMPLES: 



REFERENCE LASTREADY; 

QUEUE READYLIST:FIRSTREADY(STKNR,PRIORITY:NEXTREADY, PREADY ) ; 

VALUE NEXTREADY.PREADY.STKNR, PRIORITY; 

INTEGER STKNR, PRIORITY; 

REFERENCE NEXTREADY , PRE ADY ; 
USING 

TO INSERT, IF LASTRE ADY=NULL 

THEN NEXTREADY@(LASTREADY-FIRSTREADY-ENTRY)-PREADY-NULL 
ELSE IF PRIORITY@ENTRY = PR I OR I TY@ C PREADY *( ENTRY ) -LASTRE ADY ) 
THEN 

NEXTREADY® (NEXTRE ADY® (LASTREADY)-LASTREADY-ENTRY) -NULL 
L.i_v^i_ I. r r^ 1 t^ i 1 I wi^iN I n 1 \ rrtiui-tiiT I Mt-N gunntN I C30E5 AT HEAD; 

PREADY®(PREADY@(NEXTREADY®(ENTRY)-FIRSTREADY)-FIRSTREADY 
-ENTRY)-NULL 
ELSE 
BEGIN 

WHILE PRIORITY®ENTRY<PRIORITY®PREADY@ENTRY DO 

PREADY®(ENTRY)-PREADY@PREADY@ENTRY; 

NEXTREADY®(ENTRY)-NEXTREADY®PREADY®ENTRY; 

NEXTRE AD Y® ( PRE AD Y®EN TRY) -PRE ADY® (NEXTREADY® ENTRY) -ENTRY 
END: 

EMPTY IF FIRSTREADY=NULL: 

IF ENTRY=FIRSTREADY THEN 

IF FIRSTREADY=LASTREADY THEN 

FIRSTREADY-LASTREADY-NULL 

ELSE PREADY® (FIRSTREADY-NEXTRE ADY )-NULL 

ELSE IF ENTRY=LASTREADY THEN 

NEXTREADY®(LASTREADY-PREADY®ENTRY)-NULL 
ELSE • PRE AD Y® ( NE X T RE AD Y® ( PRE AD Y®ENTRY) -NEXTREADY® ENTRY) 
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-PREADY®ENTRY; 
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7.15. TYPE DECLARATIONS 



SYNTAX 



<TYPE DECLARATION> ::= <TYPE> <TYPE LIST> / 

OWN <TYPE> <TYPE LIST> 
<TYPE> ::= BOOLEAN / DOUBLE / EVENT / INTEGER / NAME / POINTER / 

REAL / REFERENCE / WORD 
<TYPE LIST> ::- <TYPE PART> / <TYPE LIST> , <TYPE PART> 
<TYPE PART> ::= <TYPE IDENTIFIER> <ADDRESS PART> / 

<TYPE IDENTIFIER> <REPLACEMENT OPERATOR> <INITIAL VALUE> 
<ADDRESS PART> ::= <EMPTY> / = <ADDRESS> 
<ADDRESS> ::= <IDENTIFIER> / <ADDRESS COUPLE> / 

<IDENTIFIER> <ADDING OPERATOR> <UNSIGNED INTEGER> 
<ADDRESS COUPLE> ::= (<LEVEL> < D I SPLACEMENT > ) 
<LEVEL> ::= <UNSIGNED INTEGER> / - <UNSIGNED INTEGER> 
<DISPLACEMENT> ::= <EMPTY> / , <UNSIGNED INTEGER> 
<INITIAL VALUE> ::= <EXPRESSION> 
<TYPE IDENTIFIER> ::= <IDENTIFIER> 

SEMANTICS: 



1. A <TYPE DECLARATION> DEFINES THE TYPE OF VALUE OF EACH <TYPE 
IDENTIFIER> . 

2. A <TYPE DECLARATION> MAY ALSO ASSIGN THE ADDRESS OF THE 
IDENTIFIER, OR ASSIGN THE INITIAL VALUE OF THE IDENTIFIER. OR 
SPECIFY THAT THE IDENTIFIER HAS THE PROPERTY SPECIFIED BY THE 
DECLARATOR, THE OWN PROPERTY ACTION IS ESSENTIALLY THE SAME 
AS THAT WHICH WOULD OCCUR IF THE PROGRAMMER WERE TO SPECIFY AN 
ADDRESS COUPLE REFERENCING THE ZERO LEVEL WITH AN EMPTY 
DISPLACEMENT. 

3. AN <ADDRESS> WHICH IS AN <IDENTIFIER> ASSIGNS THE <TYPE 
IDENTIFIER> TO THE SAME LOCATION AS THE < I DENT I F I ER> . THE 
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<IDENTIFIER> MUST HAVE BEEN DECLARED PREVIOUSLY AND MUST 
IDENTIFY A QUANTITY HAVING A STACK ADDRESS. 

4. AN EMPTY ADDRESS PART RESULTS IN THE ASSIGNMENT OF AN ADDRESS 
COUPLE BY THE COMPILER. 

5. AN ADDRESS COUPLE IS AN ADDRESSING LEVEL AND A DISPLACEMENT 
FROM THE BASE OF THAT LEVEL. 

6. THE ADDRESSING LEVEL MAY RANGE FROM ZERO TO 31. 

7. A NEGATIVE INTEGER USED AS A LEVEL DIRECTS THE COMPILER TO 
DETERMINE THE LEVEL REFERENCED BY SUBTRACTING THE INTEGER FROM 
THE LEVEL OF THE BLOCK BEING COMPILED. 

8. AN EMPTY DISPLACEMENT DIRECTS THE COMPILER TO USE THE NEXT 
AVAILABLE DISPLACEMENT FOR THE LEVEL INDICATED. 

9. THE RANGE OF DISPLACEMENT DEPENDS UPON THE VALUE OF LEVEL: 



LEVEL 

0. 1 
2,3 

4-7 
8-15 
16 - 31 



DISPLACEMENT RANGE 











8191 
4095 
2047 
1023 
51 1 



10. THE SPECIFIED LEVEL MUST BE LESS THAN OR EQUAL TO THE CURRENT 
LEVEL . 

11. IT IS POSSIBLE FOR TWO OR MORE IDENTIFIERS TO HAVE THE SAME 
ADDRESS COUPLE (DIRECTED BY THE PROGRAMMER). IT IS THE 
RESPONSIBILITY OF THE PROGRAMMER TO SEE THAT THE ANTECEDENTS 
OF AN ADDRESS COUPLE USED AS AN ADDRESS PART ARE CORRECT. 



12. AN INITIAL VALUE EXPRESSION ASSIGNS THE VALUE THAT THE 
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IDENTIFIER HAS UPON ENTERING THE BLOCK IN WHICH THE TYPE 

DECLARATION APPEARS. THE EXPRESSION IS EVALUATED UPON EACH 

ENTRY TO THE BLOCK. ALL INITIAL VALUE EXPRESSIONS ARE 

EVALUATED IN THE ORDER IN WHICH THEY APPEAR. 

13. AN INITIAL VALUE EXPRESSION MUST BE OF THE SAME TYPE AS THE 
DECLARATION. 

IH. IF AN INITIAL VALUE IS NOT SPECIFIED FOR ANY TYPE IDENTIFIER. 
THE INITIAL VALUE OF THAT IDENTIFIER IS ZERO. 

EXAMPLES: 



TYPE DECLARATIONS: 

OWN REAL V, Q; 
nuiw TMTrrsiTD d a. 

INTEGER Q-1 , R, S=T, V=(3,4) ; 
TYPE LIST: 

Q 

C = W 

GENERAL =(1,2) , F 1 PT-5 , Z= ( 3 ) 

TYPE PART: 



ZERO-1 

QUOTE = (3,4) 

TERIF=GRT 



ADDRESS 



ZQW 
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(3,4) 
INITIAL VALUE: 



3 

IF B THEN XxQ ELSE BOD+NOTHING 
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7.16. VALUE ARRAY DECLARATIONS 



SYNTAX 



<VALUE ARRAY DECLARATION> ::= <ARRAY SAVE PART> <VALUE TYPE> 

VALUE ARRAY <VALUE ARRAY PART LIST> 
<ARRAY SAVE PART> ::= <EMPTY> / SAVE 

<VALUE TYPE> ::= REAL / INTEGER / DOUBLE / BOOLEAN 
<VALUE ARRAY PART LIST) ::= <VALUE ARRAY IDENTIFIER) 

<REPLACEMENT OPERATOR) (<CONSTANT LIST)) / 

<VALUE ARRAY IDENTIFIER) (<CONSTANT LIST)) 
<CONSTANT LIST) ::= <CONSTANT> / <CONSTANT LIST) , <CONSTANT) 
<CONSTANT) ::= <NUMBER) / <LOGICAL VALUE) / <STRING> / 

<CONSTANT EXPRESSION) / <UNSIGNED INTEGER) (<CONSTANT LIST)) 
<CONSTANT EXPRESSION) ::= ^AN EXPRESSION WHICH CAN BE ENTIRELY 
EVALUATED BY THE ESPOL COMPILER AT COMPILE TIMEi. 

SEMANTICS : 



THE VALUE ARRAY DECLARATION DEFINES A ONE-DIMENSIONAL ARRAY OF 
VALUES. 

A <CONSTANT EXPRESSION) CAN CONSIST OF ANYTHING WHICH THE ESPOL 
COMPILER CAN COMPLETELY EVALUATE AT COMPILE TIME, THIS INCLUDES 
CONCATENATION, VARIOUS <INTRINSIC)S SUCH AS FIRSTONE, ONES, ETC. 

EXAMPLES: 



SAVE BOOLEAN VALUE ARRAY D I SPL AYOPT- ( TRUE , FALSE, FALSE, TRUE) 
VALUE ARRAY EPS I LON ( 8 " B . 7 1 828 1 82845904523536028747 I 35E66 " ) 
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8. STATEMENTS 



8.1. GENERAL 



THE UNITS OF OPERATION WITHIN THE LANGUAGE ARE CALLED STATEMENTS. 
SYNTAX : 



<STATEMENT> ::= <CONDITIONAL STATEMENT> / <UNCOND I T I ONAL STATEMENT> 
<CONDITIONAL STATEMENT> ::= <IF CLAUSE) <STATEMENT> / 

<IF CLAUSE) <UNCONDITIONAL STATEMENT) ELSE 

<CONDITIONAL STATEMENT) / <CONDITIONAL ITERATION) / 

<LABEL) : <CONDITIONAL STATEMENT) 
<IF CLAUSE) ::= IF <BOOLEAN EXPRESSION) THEN 
<LABEL) ::= <LABEL IDENTIFIER) 
<UNCONDITIONAL STATEMENT) ::- <EMPTY) / <IF CLAUSE) 

<UNCONDITIONAL STATEMENT) ELSE < UNCOND I T I ONAL STATEMENT) / 

<LABEL> : < UNCOND I T I ONAL STATEMENT) / 

<ASSIGNMENT STATEMENT) / <BASIC STATEMENT) / 

<BLOCK) / <COMPOUND STATEMENT) / <DEFINE INVOCATION) / 

<EVENT STATEMENT) / <FORK STATEMENT) / 

<FUNCTION DESIGNATOR) / <I/0 STATEMENT) / 

/ < INTERRUPT STATEMENT) / <0N STATEMENT) / 

<PROCEDURE STATEMENT) / <REPLACE STATEMENT) / 

<SCAN STATEMENT) / <UNCOND I T I ONAL ITERATION) 

SEMANTICS: 



1. STATEMENTS CAN BE LABELED. 

2. A CONDITIONAL STATEMENT CAUSES CERTAIN STATEMENTS TO BE 
EXECUTED OR SKIPPED, DEPENDING ON THE VALUE PRODUCED BY A 
BOOLEAN EXPRESSION. 



B6700/B7700 ESPOL 



8- E 



EXAMPLES: 



STATEMENTS: 

IF X>B THEN X-X+1 ELSE GO TO BE 
X-A + B 

CONDITIONAL STATEMENTS: 



BE : IF X>0 THEN N-N+1 

IF TREU THEN V:Q-N+M ELSE IF NOT BOO THEN Q:= M/N 

IF B-F(A) THEN GO TO START 

WHILE TRUE DO IF X-Q+M>Z THEN GO TO L6 

UNCONDITIONAL STATEMENTS: 



LBL: GO TO NEXT 

IF Z>X THEN GO TO FLAS ELSE GO SCND 

BEGIN Y-X+l;Z-Y+2 END 

BEGIN REAL X; LABEL Q ; IF Z>P THEN GO TO Q ELSE X-FC(C); 

Q:END 

LBL: 



IF CLAUSES 



IF B>A THEN 

IF GATEIl.E] AND GATE [ 1 , 3 ] THEN 
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8.2. ASSIGNMENT STATEMENTS 



SYNTAX : 



<ASSIGNMENT STATEMENT> ::= <ARITHMETIC ASSIGNMENT STATEMENT) / 

<ARRAY ASSIGNMENT STATEMENT) / 

<BOOLEAN ASSIGNMENT STATEMENT) / <QUEUE ASSIGNMENT) / 

<REFERENCE ASSIGNMENT) / <WORD ASSIGNMENT) 
<ARITHMETIC ASSIGNMENT STATEMENT) ::= <ARITHMETIC ASSIGNMENT) / 

<ARITHMETIC FIELD ASSIGNMENT) 
<ARITHMETIC FIELD ASSIGNMENT) ::= 

<ARITHMETIC VARIABLE) . <FIELD IDENTIFIER) 

<REPLACEMENT OPERATOR) <ARITHMETIC EXPRESSION) 
<ARRAY ASSIGNMENT STATEMENT) ::= <ARRAY ASSIGNMENT) / 

<ARRAY FIELD ASSIGNMENT) 
<ARRAY FIELD ASSIGNMENT) ::= 

<ARRAY DESIGNATOR) . <FIELD IDENTIFIER) 

<REPLACEMENT OPERATOR) <ARITHMETIC EXPRESSION) 
<BOOLEAN ASSIGNMENT STATEMENT) ::= <BOOLEAN ASSIGNMENT) / 

<BOOLEAN FIELD ASSIGNMENT) 
<BOOLEAN FIELD ASSIGNMENT) ::= 

<BOOLEAN VARIABLE) . <FIELD IDENTIFIER) 

<REPLACEMENT OPERATOR) <BOOLEAN EXPRESSION) 
<QUEUE ASSIGNMENT) ::= <QUEUE DESIGNATOR) <REPLACEMENT OPERATOR) 

<REFERENCE EXPRESSION) 

SEMANTICS: 



THE ASSIGNMENT STATEMENT CAUSES THE EXPRESSION TO THE RIGHT OF 
THE REPLACEMENT OPERATOR TO BE EVALUATED. THE VALUE IS THEN 
ASSIGNED COR TRANSFERRED) TO THE VARIABLE OR FIELD ON THE LEFT 

A QUEUE ASSIGNMENT CAUSES THE ENTRY DENOTED BY THE VALUE OF 
THE REFERENCE EXPRESSION TO BE MADE AVAILABLE TO THE INSERTION 
PART OF THE DESIGNATED QUEUE: IT THEN CAUSES THIS INSERTION 
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PART TO BE EXECUTED. 
PRAGMATICS: 

1. <NORD ASSIGNMENT>S INVOKE OVRD ACTION. 

2. THERE IS NO GUARANTEE THAT A CORRECTLY COMPILED <WORD 
ASSIGNMENT> WILL PRODUCE VALID B6700/B7700 CODE. 

EXAMPLES: 



ARITHMETIC ASSIGNMENT STATEMENTS: 

V-BxQ-R 

JOY. BOY- V-Q 

ARITHMETIC ASSIGNMENTS: 

ALTHO - N+1 

S[ V,K+E] :=3-FUNC(Q+E) 

ARITHMETIC FIELD ASSIGNMENTS: 

lOQUEUE.ERR- 6 

VI71.LNK := QUED-G0NEx7 

ARRAY ASSIGNMENT: 

NEXT-IF A[1,2]AND B[Q,3] THEN VARY[E,*] ELSE AS53-Ae3H 
BOOLEAN ASSIGNMENT STATEMENTS: 



RDY-TRUE 
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PARTWAY. NXT <- B AND GONE > 6 



QUEUE ASSIGNMENT 



QUED -QUEB(HERE .THERE, EVYWHR) 
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8.3. BASIC STATEMENTS 



SYNTAX 



<BASIC STATEMENT) ::= <G0 TO STATEMENT) / 

<DUMMY STATEMENT) / <CASE STATEMENT) 
<G0 TO STATEMENT) ::= GO <T0 PART) < DES I GNAT I ONAL EXPRESSION) / 

GO <T0 PART) ^CASE HEAD) ( <DES I GNAT I ONAL EXPRESSION LIST)) 

GO <T0 PART) <WORD VARIABLE) 
<T0 PART) ::= <EMPTY) / TO 

<DUMMY STATEMENT) ::= <EMPTY) / <DUMMY STATEMENT) <LABEL) : 
<CASE STATEMENT) ::= <CASE HEAD) <COMPOUND STATEMENT) 
<CASE HEAD) ::= CASE <ARITHMETIC EXPRESSION) OF 

SEMANTICS: 



1. THE GO TO STATEMENT TRANSFERS CONTROL TO THE LABEL WHICH IS 
THE VALUE OF THE DES I GNAT I ONAL EXPRESSION OR THE DES I GNAT I ONAL 
EXPRESSION LIST. IF A <WORD VARIABLE) IS USED, IT IS PLACED 
IN THE TOP OF STACK AND AN UNCONDITIONAL DYNAMIC BRANCH IS 
EXECUTED. 

2. IN THE <CASE STATEMENT), THE <ARITHMETIC EXPRESSION) IN THE 
<CASE HEAD) IS EVALUATED AND IS USED TO SELECT ONE OF THE 
STATEMENTS IN THE <COMPOUND STATEMENT) FOLLOWING THE <CASE 
HEAD). THE SELECTED STATEMENT AND ONLY THE SELECTED STATEMENT 
WILL BE EXECUTED. 

THE STATEMENTS IN THE <COMPOUND STATEMENT) ARE NUMBERED 
STARTING WITH ZERO, AND THE <ARITHMETIC EXPRESSION) IN THE 
<CASE HEAD) IS INTERPRETED AS THE NUMBER OF THE STATEMENT TO 
BE EXECUTED. DUMMY STATEMENTS MAY BE USED TO ARRANGE 
CONVENIENT NUMBERING OF THE STATEMENTS. 

3. IF THE VALUE OF OF THE (ARITHMETIC EXPRESSION) IS GREATER THAN 
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THE NUMBER OF STATEMENTS. ANYTHING CAN HAPPEN. FOR PURPOSES 
OF EFFICIENCY, THE ESPOL COMPILER DOES NOT EMIT "RANGE 
CHECKING CODE" TO DETERMINE VALIDITY OF THE EVALUATED 
<ARITHMETIC EXPRESSION>. 



EXAMPLES: 



GO TO STATEMENTS: 



GO TO START 

GO NEXT 

GO TO CASE ARITHEXP-1 OF (LABELI, NEXT, EXIT, START) 



DUMMY STATEMENTS 

LI : 

EXIT: NEXT 

CASE STATEMENT: 



CASE V OF BEGIN X-X+1;Z-Z+1 END 



CASE HEAD: 



CASE Z-QxV-B MOD 7 OF 



O _ Q 
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8.H. CONDITIONAL AND UNCONDITIONAL ITERATION STATEMENTS 



SYNTAX 



<CONDITIONAL ITERATION> ::= (ITERATION CLAUSE> 

<CONDriIONAL STATEMENT> 
(UNCONDITIONAL ITERATION> ::= <D0 STATEMENT) / 

(ITERATION CLAUSE> (UNCONDITIONAL STATEMENT) 
(DO STATEMENT) ::= DO (STATEMENT) UNTIL (BOOLEAN EXPRESSION) 
(ITERATION CLAUSE) ::= (WHILE PART) DO / (FOR CLAUSE) DO / 

(THRU CLAUSE) DO 
(WHILE PART) ::= WHILE (BOOLEAN EXPRESSION) 
(FOR CLAUSE) ::= FOR (CONTROLLED VARIABLE) 

(REPLACEMENT OPERATOR) (FOR PART) 
(CONTROLLED VARIABLE) ::= (SIMPLE VARIABLE) / 

(SUBSCRIPTED VARIABLE) 
(FOR PART) ::= (INITIAL PART) (STEP PART) (FINAL PART) 
(INITIAL PART) ::= (ARITHMETIC EXPRESSION) 
(STEP PART) ::= STEP (ARITHMETIC EXPRESSION) / BY 

(ARITHMETIC EXPRESSION) 
(FINAL PART) ::= UNTIL (ARITHMETIC EXPRESSION) / (WHILE PART) 
(THRU CLAUSE) ::= THRU (ARITHMETIC EXPRESSION) 

SEMANTICS: 



ITERATION PROVIDES A MEANS OF FORMING LOOPS IN A PROGRAM. IF "BY 
(ARITHMETIC EXPRESSION)" IS USED INSTEAD OF "STEP (ARITHMETIC 
EXPRESSION)", THE LOOP WILL BE CONSTRUCTED USING THE STEP AND 
BRANCH OPERATOR TO OPTIMIZE EXECUTION TIME. 

THE (THRU CLAUSE) FORM OF ITERATION OPERATES AS FOLLOWS: THE 
(ARITHMETIC EXPRESSION) IS EVALUATED AND THE (STATEMENT) FOLLOWING 
"DO" EXECUTED THE NUMBER OF TIMES INDICATED BY THAT VALUE. THE 
HARDWARE OPERATOR WHICH IMPLEMENTS THIS FORM OF ITERATION RESTRICTS 
THE BINARY REPRESENTATION OF THE INTEGERIZED (ARITHMETIC 
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EXPRESSION> TO 16 BITS THUS THIS VALUE MUST LIE IN THE RANGE 
THROUGH 65,535. 

EXAMPLES: 



ITERATION CLAUSES: 

FOR V := Q STEP 1 UNTIL GONE DO 
FOR FIRST - 1 BY 1 UNTIL LAST DO 

WHILE PARTS: 

WHILE NOT A ?£ C EQV GATE [1,2] 
WHILE TRUE 

FOR CLAUSES: 

FOR ATLST - J-E STEP A - Q - J-K UNTIL F(A) 
CONTROLLED VARIABLES: 

ATLST 
V[2,3] 

FOR PARTS: 

X-2 STEP X-Y+FUNC(A)UNTIL X-Y MOD 9 
INITIAL PARTS: 



P MOD 2 

+ 3 

Q 
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STEP PARTS: 



STEP IF B =0 THEN X ELSE Y+2 
BY 29 



FINAL PARTS: 



UNTIL X-7 
WHILE B>8 
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8.5. EVENT STATEMENTS 



SYNTAX 



<EVENT STATEMENT> ::= <SET STATEMENT> / <RESET STATEMENT> / 
<CAU5E STATEMENT) / <CAUSEANDRESET STATEMENT) / 
<WAIT STATEMENT) / < WA I TANDRESET STATEMENT) / 
<DSWAIT STATEMENT) / <DSWA I TANDRESET STATEMENT) / 
<PROCURE STATEMENT) / <FIX STATEMENT) / 
<LIBERATE STATEMENT) / <FREE STATEMENT) 

<SET STATEMENT) ::= SET (<EVENT DESIGNATOR)) 

<RESET STATEMENT) ::= RESET (<EVENT DESIGNATOR)) 

<CAUSE STATEMENT) ::= CAUSE (<EVENT DESIGNATOR)) 

<CAUSEANDRESET STATEMENT) ::= CAUSENRESET (<EVENT DESIGNATOR)) 

<WAIT STATEMENT) ::= <WAITONEVENT STATEMENT) / 
<WAITONTIME STATEMENT) 

<WAITONEVENT-COMPLEX STATEMENT) 
<WAITONEVENT-SIMPLE STATEMENT) ::= WAIT (<EVENT DESIGNATOR)) 
<WAITONEVENT-COMPLEX STATEMENT) ::= WAIT (<WAIT PARAMETER LIST)) 
<WAIT PARAMETER LIST) ::= <EVENT LIST) / (<TIME)), <EVENT LIST) 
<EVENT LIST) ::= <EVENT DESIGNATOR) / <EVENT LIST), 

<EVENT DESIGNATOR) 
<TIME> ::= ^THE MINIMUM AMOUNT OF TIME IN SECONDS 

(FRACTIONAL SECONDS ALLOWED) THAT A TASK IS TO BE 

SUSPENDED;;. 
<WAITONTIME STATEMENT) ::= WAIT C(<TIME))) 

/LIA TTAKIPipC'CrT CTA*rCM'~'^'TV . ._ •Ilji TTAkir^r-ir— r^i— -r <^Tk*p^i r- <»^<.fr~j^p-..-.-< 

Ni^niiAiNuRt-OCi caiAiLriciNi/' : : ^ swrtiiMNuncaci-^inpLt, ^lAltntlNI^/ 

<WAITANDRESET-COMPLEX STATEMENT) 
<WAITANDRESET-SIMPLE STATEMENT) ::= WAITANDRESET 

(<EVENT DESIGNATOR)) 
<WAITANDRESET-COMPLEX STATEMENT) ::= WAITANDRESET 

(<WAIT PARAMETER LIST)) 
<DSWAIT STATEMENT) ::= < DSWA I T-S I MPLE STATEMENT) / 

<DSWAIT-COMPLEX STATEMENT) 
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= DSWAIT (<EVENT DESIGNATOR>) 

:= DSWAIT (<WAIT PARAMETER LIST>) 

:= <DSWAITANDRESET-SIMPLE STATEMENT> / 



<DSWAIT-SIMPLE STATEMENT) 
<DSWAIT-COMPLEX STATEMENT) 
<DSWAITANDRESET STATEMENT) 

<DSWA I TANDRESET -COMPLEX STATEMENT) 
<DSWAITANDRESET-SIMPLE STATEMENT) ::= DSWA I TANDRESET 

(<EVENT DESIGNATOR)) 
<DSWAITANDRESET-COMPLEX STATEMENT) ::= DSWA I TANDRESET 

(<WAIT PARAMETER LIST)) 
<PROCURE STATEMENT) ::= PROCURE (<EVENT DESIGNATOR)) 
<FIX STATEMENT) ::= FIX (<EVENT DESIGNATOR)) 
<LIBERATE STATEMENT) ::= LIBERATE (<EVENT DESIGNATOR)) 
<FREE STATEMENT) ::= FREE (<EVENT DESIGNATOR)) 



SEMANTICS: 

AN EVENT HAS TWO PROPERTIES. EACH PROPERTY HAVING TWO STATES. THE 
CONDITION-ORIENTED PROPERTY HAS EITHER A HAPPENED OR NOT HAPPENED 
STATE, AND THE RESOURCE-ORIENTED PROPERTY HAS EITHER AN AVAILABLE 
OR NOT AVAILABLE STATE. THE INITIAL STATE OF EACH PROPERTY IS NOT 
HAPPENED AND AVAILABLE. ASSOCIATED WITH EACH PROPERTY ARE 
STATEMENTS WHICH MAY BE USED TO CONTROL AND/OR INTERROGATE THE 
STATE OF THE PROPERTY. 

THE <SET STATEMENT) WILL SET AN EVENT TO THE HAPPENED STATE. IT 
WILL NOT CAUSE ANY OTHER ACTION, I.E. THE <SET STATEMENT) WILL NOT 
ACTIVATE A TASK WAITING ON THE EVENT. 

THE <RESET STATEMENT) WILL RESET AN EVENT TO THE NOT HAPPENED STATE 
IT WILL NOT CAUSE ANY OTHER ACTION. 

THE <CAUSE STATEMENT) WILL ACTIVATE ALL TASKS WHICH ARE WAITING ON 
THE EVENT. NORMALLY THE CAUSE WILL ALSO SET THE EVENT TO THE 
HAPPENED STATE. (SEE THE < WA I TANDRESET STATEMENT) FOR EXCEPTIONS). 



IT MUST BE POINTED OUT THAT ACTIVATING A TASK DOES NOT IMPLY THE 
TASK GOES INTO IMMEDIATE EXECUTION. ACTIVATING A TASK CONSISTS OF 
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DELINKING THE TASK FROM AN EVENT QUEUE (EACH EVENT HAS ITS OWN 
QUEUE), AND LINKING THAT TASK IN PRIORITY ORDER INTO A SYSTEM QUEUE 
CALLED THE READYQ. THE READYQ IS A QUEUE OF ALL TASKS, IN PRIORITY 
ORDER, THAT ARE CAPABLE OF RUNNING. TASKS ARE TAKEN OUT OF THE 
READYQ WHEN EITHER A PROCESSOR IS ASSIGNED TO THE TASK, OR THE TASK 
MUST WAIT FOR SOMETHING SUCH AS AN I/O OPERATION OR AN EVENT TO BE 
CAUSED. A TASK WILL ONLY BE PLACED INTO ACTUAL EXECUTION WHEN IT 
IS THE TOP ITEM IN THE READYQ AND A PROCESSOR IS AVAILABLE. 

THE <CAUSEANDRESET STATEMENT> IS SIMILAR TO THE <CAUSE STATEMENT> 
IN THAT IT ACTIVATES ALL TASKS WAITING ON THE EVENT. IT VARIES 
FROM THE <CAUSE STATEMENT> IN THAT THE RESULTANT STATE OF THE EVENT 
IS SET TO NOT HAPPENED. 

FOR THE <WAITONEVENT STATEMENT>, THE HAPPENED STATE OF THE EVENT IS 
EXAMINED. IF THE EVENT STATE IS HAPPENED, THE STATEMENT IS 
ESSENTIALLY A "NO-OPERATION". IF THE EVENT STATE IS NOT HAPPENED, 
THE TASK WILL BE SUSPENDED UNTIL SUCH TIME SOME OTHER TASK EXECUTES 
A <CAUSE STATEMENT>. 

THE <WAIT STATEMENT> ALLOWS FOR SUSPENDING A TASK EITHER FOR A TIME 
PERIOD OR UNTIL AN EVENT IS CAUSED. 

FOR THE <WAITONTIME STATEMENT), THE TIME FUNCTION GENERATES AN 
IMPLICIT EVENT WHICH IT WAITS ON. THIS EVENT IS CAUSED BY THE 
OPERATING SYSTEM WHEN IT DETECTS THE TIME PERIOD SPECIFIED BY 
<TIME> HAS ELAPSED. IT MIGHT BE NOTED THAT DEPENDING ON THE DEGREE 
OF MULTIPROCESSING BEING PERFORMED AND PROGRAM PRIORITIES, THE 
ACTUAL TIME A TASK IS SUSPENDED FOR <TIME> MAY VARY WIDELY IN 
RESPECT TO THE TIME INDICATED IN <TIME> WITH SMALLER INCREMENTS OF 
TIME HAVING THE GREATEST VARIATION. 

THE <WAITANDRESET STATEMENT) ALLOWS FOR SUSPENDING A TASK UNTIL THE 
EVENT IS CAUSED. IT IS IDENTICAL TO THE <WAIT STATEMENT) EXCEPT 
THAT THE EVENT IS FORCED TO THE STATE NOT HAPPENED DURING THE 
SUBSEQUENT CAUSE PROCESSES. 
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THE <WAITONEVENT STATEMENT> AND < WA I TANDRESET STATEMENT> ARE 
IDENTICAL EXCEPT FOR THE STATE TO WHICH THE CAUSED EVENT IS SET 
DURING THE CAUSE PROCESS. IF ALL TASKS ARE WAITING ON THE EVENT 
VIA THE <WAITONEVENT STATEMENT> (SIMPLE OR COMPLEX), THE STATE OF 
THE EVENT IS SET TO HAPPENED. IF ANY ONE TASK IS WAITING ON THE 
EVENT VIA THE <WA I TANDRESET STATEMENT), THE STATE OF THE EVENT IS 
RESET TO NOT HAPPENED. 

THE <WAITONEVENT-COMPLEX STATEMENT) ALLOWS A TASK TO BE SUSPENDED 
UNTIL ANY ONE EVENT IN THE <EVENT LIST) IS CAUSED OR UNTIL THE TIME 
AS INDICATED BY <TIME> HAS ELAPSED. THE < WA I TONEVENT-COMPLEX 
STATEMENT) MAY BE USED AS AN INTEGER FUNCTION WHICH RETURNS A VALUE 
(STARTING AT 1) WHICH REPRESENTS THE POSITION IN THE <WAIT 
PARAMETER LIST) OF THE PARAMETER WHICH CAUSED THE TASK TO BE 
ACTIVATED. FOR EXAMPLE, IN THE STATEMENT: 

T : := WAIT ( ( .0001 ) , El ,E2) 

THE VALUE OF T WOULD BE 1 IF ELAPSED TIME CAUSED THE TASK TO BE 
ACTIVATED, WHILE IN THE EXAMPLE: 

T : := WAIT (El , EB , E3 ) 

THE VALUE OF T WOULD BE E IF A CAUSE ON EVENT EE ACTIVATED THE TASK 

IT MIGHT BE NOTED THAT THE IMPLEMENTATION OF THIS MECHANISM 
CONTAINS INTERLOCKS TO GUARANTEE THAT ONE AND ONLY ONE PARAMETER 
CAN ACTIVATE A TASK. 

IF TIME IS INCLUDED AS A PARAMETER. IT MUST THE FIRST PARAMETER IN 
THE LIST (AND ENCLOSED IN PARENTHESES). 

THERE EXIST SOME SITUATIONS WHEREBY CERTAIN OPERATING SYSTEM 
FUNCTIONS CANNOT BE TERMINATED WHILE WAITING ON AN EVENT, SUCH AS 
WHILE WAITING FOR AN I/O COMPLETE. FOR THIS REASON, A REQUEST TO 
TERMINATE A SYSTEM FUNCTION WHICH IS IN TURN WAITING ON AN EVENT 
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WILL NOT BE HONORED. HOWEVER, THERE ARE OTHER OPERATING SYSTEM 
FUNCTIONS FOR WHICH NO SYSTEM PROBLEM OCCURS IF THEY ARE TERMINATED 
WHILE WAITING ON EVENT. FOR THESE FUNCTIONS, THE <DSWAIT 
STATEMENT> MAY BE USED. 

TERMINATION OF OPERATING SYSTEM FUNCTIONS IS SOMEWHAT DIFFERENT 
THAN FOR OBJECT TASKS. FIRST OF ALL, AN INTERLOCK IS SET SO THAT 
CONTROL CANNOT RETURN TO THE OBJECT PROGRAM WHICH CALLED THE SYSTEM 
FUNCTION. THE SYSTEM FUNCTION THEN IS ACTIVATED AS IF THE EVENT 
HAD BEEN CAUSED. MEANS EXIST WHEREBY A SYSTEM FUNCTION CAN 
DETERMINE IF IT WAS ACTIVATED BY A CAUSE OF AN EVENT OR BY A 
TERMINATE REQUEST ("DS"). 

THE <DSWAIT-COMPLEX STATEMENT) IS SIMILAR TO THE < DSWA I T-S I MPLE 
STATEMENT) IN THAT IT ALLOWS A TERMINATE REQUEST AGAINST AN 
OPERATING SYSTEM FUNCTION TO BE HONORED. IT IS SIMILAR ALSO TO THE 
<WAITONEVENT-COMPLEX STATEMENT) IN THAT IT ALLOWS SUSPENSION FOR A 

EVENTS. IT RETURNS AN INTEGER SIMILAR TO THE < WA I TONEVENT-COMPLEX 
STATEMENT) EXCEPT THAT A ZERO (0) IS RETURNED IF THE FUNCTION WAS 
ACTIVATED DUE TO A TERMINAL REQUEST. 

BY THIS TIME THE READER MAY BE CONCERNED AS TO SETTING OF THE 
HAPPENED STATE OF AN EVENT JUST AFTER AN EVENT IS CAUSED. 
ESSENTIALLY, ANY ONE TASK WAITING ON THE EVENT VIA THE 
<WAITANDRESET STATEMENT) OR THE EVENT CONTROL TASK EXECUTING A 
<CAUSEANDRESET STATEMENT) WILL RESULT IN THE STATE NOT HAPPENED. 
ALL TASKS MUST BE WAITING USING THE <WAIT STATEMENT) AND THE EVENT 
CONTROL TASK MUST USE THE <CAUSE STATEMENT) IN ORDER FOR THE EVENT 
TO HAVE THE HAPPENED STATE IMMEDIATELY AFTER THE CAUSE PROCESS. 
FOR THIS REASON, EXTREME CARE MUST BE TAKEN WHEN USING THESE 
STATEMENTS. AS A GUIDE TO THE PROPER USE OF THE WAIT, 
WAITANDRESET, CAUSE, AND C AUSEANDRESET STATEMENTS, CONSIDER THERE 
ARE TWO TYPES OF CONDITIONS, MOMENTARY AND ELAPSED. 

A MOMENTARY CONDITION CAN BE DEFINED AS A CONDITION WHICH CAN EXIST 
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FOR ONLY AN INSTANT. THE RESET OPTIONS OF CAUSE AND WAIT 
STATEMENTS ALLOW THE IMPLEMENTATION OF MOMENTARY CONDITIONS. FOR 
THE SITUATION WHERE AN EVENT CONTROL TASK (THE ONE CAUSING THE 
EVENT) SOLELY DETERMINES THE CONDITION, THE DEPENDENT STACKS (THOSE 
WAITING) SHOULD USE THE <WAIT STATEMENT> WHILE THE EVENT CONTROL 
STACK SHOULD USE THE <C AUSE ANDRESET STATEMENT>. 

FOR THE CASE WHERE THE ACT OF A TASK BEING ACTIVATED MEANS THE 
CONDITION IS TO DISAPPEAR, THE DEPENDENT TASK SHOULD USE THE 
<WAITANDRESET STATEMENT> WHILE THE EVENT CONTROL TASK SHOULD USE 
THE <CAUSE STATEMENT>. ONE SHOULD AVOID MIXING WAIT, WA I TANDRESET , 
CAUSE AND CAUSEANDRESET ALL ON THE SAME EVENT. THE RESULTANT 
CONFUSION OVER THE HAPPENED STATE OF THE EVENT CAN CAUSE A 
CONSIDERABLE PROBLEM. 

AN ELAPSED CONDITION CAN BE DEFINED AS A CONDITION WHICH HOLDS OVER 
A LONG PERIOD. TO IMPLEMENT THIS TYPE OF CONDITION, ONE SHOULD USE 
ONLY THE WAIT, CAUSE, AND RESET STATEMENTS. 

THE SECOND PROPERTY OF AN EVENT IS THE RESOURCE-ORIENTED PROPERTY. 
ONE CAN CONSIDER A RESOURCE AS SOMETHING WHICH CAN BE UTILIZED BY 
SEVERAL TASKS BUT ONLY ONE TASK AT A TIME. FOR EXAMPLE, LET US 
CONSIDER A COMPLEX LIST STRUCTURE BUILT INTO AN ARRAY AS A RESOURCE 
LET US ALSO ASSUME THAT THERE EXISTS A TASK WHICH ADDS DATA TO THE 
LIST STRUCTURE AND ANOTHER TASK WHICH DELETES FROM THE LIST 
STRUCTURE WE ALSO ASSUME THAT BOTH TASKS RUNNING SIMULTANEOUSLY 
COULD DESTROY THE LIST STRUCTURE. IT IS NECESSARY TO LET EITHER 
TASK RUN AT ANY TIME BUT NOT SIMULTANEOUSLY. THIS TYPE OF CONTROL 
CAN BE DONE VIA THE RESOURCE-ORIENTED PROPERTIES OF AN EVENT AND 
THE RESOURCE-ORIENTED STATEMENTS. 

THE <PROCURE STATEMENT> TESTS THE AVAILABLE STATE OF AN EVENT. IF 
THE EVENT IS NOT AVAILABLE, THE EVENT STATE IS SET TO NOT AVAILABLE 
AND THE TASK CONTINUES IN SEQUENCE. 

THE <FIX STATEMENT) (ALSO REFERRED TO AS A CONDITIONAL PROCURE 
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FUNCTION) IS A BOOLEAN FUNCTION WHICH EXAMINES THE AVAILABLE STATE 
OF AN EVENT. IF THE STATE IS AVAILABLE, THE EVENT IS PROCURED 
(SETS STATE TO NOT AVIALBLE) AND A "TRUE" IS RETURNED. IF THE 
AVAILABLE STATE WAS NOT AVAILABLE, THE FUNCTION RETURNS A "FALSE", 
LEAVING THE AVAILABLE STATE UNCHANGED. 

THE <LIBERATE STATEMENT> WHEN EXECUTED, PRODUCES SEVERAL EFFECTS: 

A. FIRST OF ALL, THE PROCURE LIST IS EXAMINED. 

1. IF THERE ARE NO OTHER TASKS WAITING TO PROCURE THE THE 
EVENT, THE EVENT STATE IS SET TO AVAILABLE. 

E. IF THERE ARE OTHER TASKS WAITING TO PROCURE THE EVENT, 

THE LAST TASK (THE IMPLEMENTATION IS LAST IN-FIRST OUT) 

IS ACTIVATED. THE EVENT STATE IS LEFT MARKED AS NOT 
AVAILABLE. 

B. LASTLY, ALL TASKS WAITING ON THE EVENT ARE ACTIVATED (AN 
IMPLICIT CAUSE IS EXECUTED). THIS MAY RESULT IN A CHANGE TO 
THE HAPPENED STATE OF THE EVENT DEPENDING ON WHETHER THE TASKS 
WHICH WERE WAITING USED THE <WAITONEVENT STATEMENT> OR 
<WAITANDRESET STATEMENT). 

THE <FREE STATEMENT) (OF ARBITRARY VALUE AND DANGEROUS USE) IS A 

BOOLEAN FUNCTION WHICH EXAMINES THE AVA I LABL I L I TY STATE OF AN EVENT 

IT RETURNS A "TRUE" IF THE EVENT IS AVAILABLE AND A "FALSE" IF THE 

EVENT IS NOT AVAILABLE. IN ADDITION, IT WILL RESET THE EVENT STATE 
iiMrnMnTTtriMAiiv to auatiapic piir i.itii mot ArTT\/ATcr akjv tacl/- 

SUSPENDED BY AN ATTEMPT TO PROCURE THE EVENT NOR WILL IT ACTIVATE 
ANY TASK WAITING ON THE EVENT. 
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8.6. FORK STATEMENT 

SYNTAX : 

<FORK STATEMENT) ::= FORK <PROCEDURE STATEMENT) [<FORK PARAMETERS)] 

<FORK PARAMETERS) ::= <STACK SIZE), <PRIORITY) <VISIBLE NAME INDEX) 

<STACK SIZE) ::= <ARITHMETIC EXPRESSION) 

<PRIORITY) ::- <ARITHMETIC EXPRESSION) 

<VISIBLE NAME INDEX) ::= <EMPTY) / , <ARITHMETIC EXPRESSION) 

SEMANTICS : 



THE <FORK STATEMENT) PROVIDES THE MEANS OF INITIATING "INDEPENDENT 
RUNNERS" WITHIN THE MCP . 

THE PROCEDURE REFERENCED MAY BE TYPED OR UNTYPED. IT MAY NOT BE 
FORMAL OR DYNAMIC. IF TYPED, THE VALUE IS LOST. 

IF THERE ARE ACTUAL PARAMETERS, THEY MUST AGREE IN NUMBER AND TYPE 
WITH THE FORMAL PARAMETERS SPECIFIED FOR THE PROCEDURE. 

THERE MAY BE TWO OR THREE <FORK PARAMETERS). THE FIRST TWO SPECIFY 
THE STACK SIZE AND PRIORITY RESPECTIVELY, OF THE INITIATED PROCESS. 

THE THIRD FORK PARAMETER, IF PRESENT, IS A CHARACTER INDEX INTO AN 
ARRAY OF INDEPENDENT RUNNER NAMES ( " I NDEPRUNNERNAMES " ) . A NON-ZERO 
VALUE INDICATES THE SPECIFIED NAME SHOULD BE DISPLAYED ON THE SPO 
WITH "BOJ" AND "EOJ" MESSAGES. AN <EMPTY> OR ZERO VALUE INDICATES 
SPO MESSAGES ARE NOT TO BE DISPLAYED. 

EXAMPLES: 



FORK LIEBNITZ (NAMEDARRAY) 
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[ IRMAXSTACKSIZE, I RTOPPR I OR I T Y , LIEBNAME] 
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8.7. I/O STATEMENTS 



SYNTAX: 



<I/0 STATEMENT> ::= <CLOSE STATEMENT> / <LOCK STATEMENT) / 

<READ STATEMENT) / <REWIND STATEMENT) / <SEEK STATEMENT) / 
<SPACE STATEMENT) / <WRITE STATEMENT) 

SEMANTICS: 



INPUT/OUTPUT STATEMENTS CAUSE INFORMATION TO BE EXCHANGED BETWEEN 
MEMORY AREAS AND PERIPHERAL DEVICES, OR ALLOW THE USER TO PERFORM 
CERTAIN CONTROL FUNCTIONS. THE USER ASSUMES RESPONSIBILITY FOR 
HANDLING IRRECOVERABLE ERROR CONDITIONS (I.E., THE MCP I/O 
ROUTINES WILL TRY NORMAL AND APPROPRIATE ERROR RECOVERY; IF THESE 
FAIL, THE USER IS THEN RESPONSIBLE FOR THE SUBSEQUENT COURSE OF 
ACTION) . 

EXCEPTION CONDITIONS OCCURRING DURING A "READ", "WRITE", OR "SPACE" 
STATEMENT MAY BE HANDLED BY USING THE I/O RESULT WORD RETURNED BY 
THE I/O ROUTINES AS A <BOOLEAN PRIMARY). 

EXAMPLES: 



IF BOOLVAR := READCFILEID, 1 H , A[*]) THEN GO TO ERRORCOND; 
BRSLT := WRITE (FYLE, AMOUNT, PID) 

THIS METHOD MAY NOT BE USED FOR DIRECT I/O STATEMENTS. IF AN 
EXCEPTION CONDITION OCCURS DURING A "READ". "WRITE", OR "SPACE" 
STATEMENT, BIT ZERO OF THE I/O RESULT WORD WILL BE 1 . IF NO 
EXCEPTION CONDITION OCCURS THAT BIT WILL BE CZERO) 0. IF BIT ZERO 
IS 1 THEN ONE OF THE FOLLOWING BITS WILL ALSO BE 1: 
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BIT 9 INDICATING ON END-OF-FILE CONDITION; 
BIT 7 INDICATING A PARITY ERROR OR 
BIT 4 INDICATING A DATA ERROR. 

IF THE "READ", "WRITE", OR "SPACE" STATMENT IS NOT USED AS AN 
EXPRESSION, THE COMPILER GENERATES A DELETE OPERATOR TO DISPOSE OF 
THE I/O RESULT NORD. 

EXAMPLES: 



CLOSE (...) 
LOCK (...) 
READ (...) 
REWIND ( . . . ) 
SEEK (...) 
SPACE (...) 
WRITE ( . . . ) 
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8.7.1. CLOSE STATEMENT 



SYNTAX: 



<CLOSE STATEMENT> ::= CLOSE ( <FILE DESIGNATOR> ) / 

CLOSE ( <FILE DESIGNATOR> , <CLOSE OPTION) ) 
<CLOSE OPTION) ::= » / PURGE / REEL 

SEMANTICS: 



THE <CLOSE STATEMENT) WITH NO <CLOSE OPTION) CAUSES THE REFERENCED 
FILE TO BE CLOSED. THE FOLLOWING ACTIONS TAKE PLACE: 

1. ON A CARD PUNCH FILE, A CARD CONTAINING AN ENDING LABEL 
IS PUNCHED. 

2. ON A LINE PRINTER FILE, THE PRINTER IS SKIPPED TO CHANNEL 
1, AN ENDING LABEL IS PRINTED, AND THE PRINTER IS AGAIN 
SKIPPED TO CHANNEL 1 . 

3. ON AN UNLABELED TAPE OUTPUT FILE, A DOUBLE TAPE MARK IS 
WRITTEN AFTER THE LAST BLOCK ON TAPE. 

H. ON A LABELED TAPE OUTPUT FILE, A TAPE MARK IS WRITTEN 
AFTER THE LAST BLOCK ON THE TAPE THEN AN ENDING LABEL IS 
WRITTEN, FOLLOWED BY A DOUBLE TAPE MARK. 

5. ON A DISK FILE, IF THE FILE IS A TEMPORARY FILE. THE DISK 
SPACE IS RETURNED. 

FOR ALL TYPES OF FILES, THE BUFFER AREAS ARE RETURNED TO THE SYSTEM 

Ih UNLY IML <t-lLL Ut.i3lurMAlU«>> iS USC.U, inE 1/u uiNii io ncLLnocu lu 
THE SYSTEM. IF THE FILE IS A TAPE FILE, THE TAPE IS REWOUND. 
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IF "PURGE" IS USED, THE FILE IS CLOSED, PURGED, AND RELEASED TO THE 
SYSTEM. IF THE FILE IS A PERMANENT DISK FILE, IT IS REMOVED FROM 
THE DISK DIRECTORY AND THE DISK SPACE IS RETURNED. 

IF THE SYMBOL "*" IS USED, THE FILE MUST BE A TAPE FILE. THE I/O 
UNIT REMAINS UNDER PROGRAM CONTROL AND THE TAPE IS NOT REWOUND. 
THIS CONSTRUCT IS USED TO CREATE MULTI-FILE REELS. 

WHEN THE SYMBOL "*" IS USED ON MULTI-FILE INPUT TAPES, THE 
FOLLOWING ACTIONS CAN TAKE PLACE: IF THE VALUE OF THE ATTRIBUTE 
"DIRECTION" IS "FORWARD", THE TAPE IS POSITIONED FORWARD TO A POINT 
JUST FOLLOWING THE ENDING LABEL OF THE FILE; IF THE VALUE OF THE 
ATTRIBUTE "DIRECTION" IS "REVERSE", THE TAPE IS POSITIONED TO A 
POINT JUST IN FRONT OF THE BEGINNING LABEL FOR THE FILE; IF THE 
END-OF-FILE BRANCH HAS BEEN TAKEN, NO ACTION IS PERFORMED TO 
POSITION THE FILE. ON A SINGLE-FILE REEL, THE ACTION TAKEN IS THE 

CAMC AC CnD A Mill XT f-Tir- nr-r-i -riti— k 1 1- \, -r r-M— r-f— .^.— ..^.— ...„ ^...— _-._ 

-""""- "-' luiA n. riui_ii-rii_[L r\C.CU. inc INt-Al r<t^tKLNUtL lU IHlb hlLL 

MUST BE "READ" IN THE OPPOSITE DIRECTION FROM THAT OF THE PRIOR 
"READ" ON THE FILE OR AN ERROR RESULT WORD WILL BE RETURNED. 

IF "REEL" IS USED, THE FILE MUST BE A MULTI-REEL TAPE FILE. THE 
CURRENT REEL WILL BE CLOSED AND A SUBSEQUENT REFERENCE OF THE FILE 
WILL IMPLICITLY OPEN THE NEXT REEL. THIS IS PROVIDED PRIMARILY FOR 
THE USE OF DIRECT TAPE FILES, WHERE THE SYSTEM DOES NOT 
AUTOMATICALLY PERFORM REEL SWITCHING. 

EXAMPLES: 



CLOSE (FYLE) 

CLOSE (FID, *) 

CLOSE (LINES, PURGE) 

CLOSE (FYLE, REEL) 



B6700/B7700 ESPOL 



8- 24 



8.7.2 



LOCK STATEMENT 



SYNTAX : 

<LOCK STATEMENT) ::= LOCK ( <FILE DESIGNATOR) ) / 
LOCK (<FILE DESIGNATOR), *) 

SEMANTICS: 



THE <LOCK STATEMENT) CAUSES THE REFERENCED FILE TO BE CLOSED. IF 
THE FILE IS TAPE, IT IS REWOUND AND A SYSTEM MESSAGE IS PRINTED TO 
NOTIFY THE OPERATOR TO REMOVE THE REEL AND SAVE IT. IF THE FILE IS 
NOT A DISK FILE, THE UNIT IS MADE INACCESSIBLE TO THE SYSTEM UNTIL 
THE OPERATOR RESETS IT AGAIN MANUALLY. IF THE FILE IS A DISK FILE, 
IT IS RETAINED AS A PERMANENT FILE ON DISK. THE FILE BUFFER AREAS 
ARE RETURNED TO THE SYSTEM. 

THE "LOCK ( <FILE DESIGNATOR) , * )" CONSTRUCT CAUSES AN ADJUSTMENT 
OF THE BLOCKING OF A DISK FILE TO ELIMINATE UNUSED SPACE IN THE 
DISK AREAS ALLOCATED FOR THE FILE. AS A RESULT OF THE ADJUSTMENT 
OF THE NUMBER AND SIZE OF PHYSICAL AREAS ON THE DISK, THE 
"CRUNCHED" FILE MAY NOT BE EXPANDED WITHOUT BEING COPIED INTO A NEW 
FILE . 

EXAMPLES: 



LOCK (FILEA) 
LOCK (FILE, ♦) 
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8.7.3. READ STATEMENT 



SYNTAX: 



<READ STATEMENT> ::= READ (<FILE PART>, <WORD COUNT>, 

<I/0 AREA>) <I/0 FINISH EVENT> 
<FILE PART> ::= <FILE DESIGNATOR> / 

<FILE DESIGNATOR> <RECORD NUMBER OR CARRIAGE CONTROL> 
<RECORD NUMBER OR CARRIAGE CONTROL> ::= KARITHMETIC EXPRESSION>] / 

[LINE <ARITHMETIC EXPRESSION>] / [SPACE 

<ARITHMETIC EXPRESSION>] / [SKIP < AR I THMET I C EXPRESS I 0N> ] / 

[STACKER <ARITHMETIC EXPRESSION>] / [NO] 
<I/0 AREA> ::= <ARRAY ROW> / <POINTER EXPRESSION> / 

<SUBSCRIPTED VARIABLE> 
<I/0 FINISH EVENT> ::= <EMPTY> / [ <EVENT DESIGNATOR>] 

SEMANTICS: 



THE <READ STATEMENT> CAUSES DATA TO BE TRANSFERRED FROM A 
PERIPHERAL DEVICE TO AN <I/0 AREA>. THE INPUT DATA IS PROCESSED AS 
FULL WORDS AND IS ASSIGNED TO THE ELEMENTS OF THE SPECIFIED ARRAY 
WITHOUT EDITTING. 

EXAMPLES: 



READ (FILEID, 14, POINTERID); 

BOOLVAR := READ (FILEID, WORDCOUNT , A[*]); 

READ (FILEID, AMOUNT, ARRAYID) [COMPLETE] 

<FILE PART> INDICATES WHERE THE DATA IS TO BE FOUND. 

IF <RECORD NUMBER OR CARRIAGE CONTROL> IS AN <ARITHMETIC 
EXPRESSION>, ITS VALUE INDICATES THE RELATIVE ADDRESS OF THE RECORD 
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IN A FILE WHICH IS TO BE READ. THE RECORD POINTER IS SET TO THE 
SPECIFIED ADDRESS BEFORE THE "READ" IS PERFORMED. IF AN ADDRESS IS 
INDICATED AND THE FILE IS A RANDOM ACCESS FILE, THE RECORD POINTER 
IS NOT ADJUSTED AFTER THE READ. 

IF THE <RECORD NUMBER OR CARRIAGE CONTROL) IS [NO], THE FILES 
BUFFER IS NOT RELEASED AFTER IT HAS BEEN READ. 

IF THE <RECORD NUMBER OR CARRIAGE CONTROL) IS <EMPTY>, THE RECORD 

INDICATED BY THE RECORD POINTER IS READ. IF THE FILE IS SERIAL, 

THE RECORD POINTER IS ADJUSTED TO POINT TO THE NEXT RECORD IN THE 
FILE. 

IF THE <RECORD NUMBER OR CARRIAGE CONTROL) IS "tSPACE <ARITHMETIC 
EXPRESSION)]" THE NUMBER OF RECORDS SPECIFIED IN <ARITHMETIC 
EXPRESSION) IS SKIPPED. SPACING IS FORWARD IF THE <ARITHMETIC 
EXPRESSION) IS POSITIVE; BACKWARD IF NEGATIVE. 

THE NUMBER OF WORDS READ IS THE SMALLEST OF: 

A. THE NUMBER OF ELEMENTS IN THE <ARRAY ROW), OR ITEM 
REFERENCED BY THE <POINTER EXPRESSION), 

B. THE MAXIMUM RECORD LENGTH ( " MAXRECS I ZE " ) , 

C. THE ABSOLUTE VALUE OF THE <WORD COUNT). 

(NOTE THAT IF THE UNITS ATTRIBUTE=1. AND INTMODE / 0, THEN ALL 
COUNTS REPRESENT CHARACTERS, NOT WORDS.) 

THE "KEVENT DESIGNATOR)]" FORM OF <I/0 FINISH EVENT) MAY BE USED 
ONLY FOR DIRECT I/O; THE EVENT IS CAUSED WHEN THE I/O OPERATION IS 
FINISHED. 
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8.7.4. REWIND STATEMENT 



SYNTAX : 



<REWIND STATEMENT> ::= REWIND ( <FILE DESIGNATOR> ) 



SEMANTICS: 



THE <REWIND STATEMENT> CAUSES THE REFERENCED FILE TO BE CLOSED. IF 
THE FILE IS A PAPER TAPE OR MAGNETIC TAPE FILE, IT IS REWOUND. FOR 
DISK FILES, THE RECORD POINTER IS RESET TO THE FIRST RECORD OF THE 
FILE. THE 1/0 UNIT WILL REMAIN UNDER PROGRAM CONTROL. 

EXAMPLES: 



REWIND (FILEA) 
RESTRICTION: 

ON PAPER TAPE FILES, THE <REWIND STATEMENT) MAY BE USED ONLY ON 
INPUT, 
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8.7.5. SEEK STATEMENT 



SYNTAX: 



<SEEK STATEMENT> ::= SEEK (<FILE DESIGNATOR> [<RECORD NUMBER>]) 
<RECORD NUMBER) ::= <ARITHMETIC EXPRESSION) 

SEMANTICS: 



THE <SEEK STATEMENT) IS USED WITH DISK FILES. IT PROVIDES THE 
MEANS BY WHICH A FILE"S BUFFER MAY BE FILLED IN ADVANCE OF AN 
ANTICIPATED READ OR WRITE ON THE RECORD TO WHICH <RECORD NUMBER) 
POINTS. 

THE <FILE DESIGNATOR) MUST NOT BE A DIRECT FILE. 

EXAMPLES: 

SEEK (FILEA [X+E*Y]) 
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8.7.6. SPACE STATEMENT 



SYNTAX 



<SPACE STATEMENT> ::= SPACE ( <FILE DESIGNATOR>, 
<ARITHMETIC EXPRESSION) ) 

SEMANTICS: 



THE <SPACE STATEMENT) IS USED TO BYPASS INPUT RECORDS WITHOUT 
READING THEM. THE VALUE OF THE <ARITHMETIC EXPRESSION) DETERMINES 
THE NUMBER OF RECORDS TO BE SPACED AND THE DIRECTION OF THE SPACING 
IF THE <ARITHMETIC EXPRESS 1 0N> I S POSITIVE, THE RECORDS ARE SPACED 
IN A FORWARD DIRECTION; IF NEGATIVE, IN THE REVERSE DIRECTION. 

EXAMPLES: 



SPACE (FID, 1) 

BOOLVAR := SPACE (FYLE, - RECS ) 

SPACE (LINE, LINES - PAGEINX) 
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8.7.7. WRITE STATEMENT 



SYNTAX 



<WRITE STATEMENT> ::= WRITE (<FILE PART>. <WORD COUNT>. <I/0 AREA>) 
< I /O FINISH EVENT> 

SEMANTICS^ 

THE <WRITE STATEMENT> CAUSES DATA TO BE TRANSFERRED FROM AN <I/0 
AREA> TO A PERIPHERAL DEVICE. THE OUTPUT DATA IS PROCESSED AS FULL 
WORDS AND IS WRITTEN WITHOUT EDITTING. 

<FILE PART> INDICATES WHERE THE DATA IS TO BE WRITTEN. 

IF <RECORD NUMBER OR CARRIAGE CONTROL> IS "[LINE <ARITHME-IC 
EXPRESSION>]" AND THE FILE IS A LINE PRINTER FILE, THEN THE PRINTER 
WILL SKIP FORWARD TO THE SPECIFIED LINE BEFORE PRINTING. HOWEVER. 
THE FOLLOWING MUST BE OBSERVED: 



1 ) 



2) 



THE PAGESIZE FILE ATTRIBUTE MUST BE SET TO THE NUMBER OF 
LINES ON A PAGE. 

SINCE NORMAL DEFAULT ACTION FOR ALGOL IS PRINT BEFORE 
CARRIAGE ACTION, A SUBSEQUENT WRITE MAY OVERPRINT THE 
LINE. 

THE LINE NUMBER IS NOT RESET WHEN tSKIP M IS USED SINCE 
THIS DOES NOT NECESSARILY EJECT A PAGE. IN THIS CASE. 
THE USER MUST RESET THE LINENUMBER ATTRIBUTE. 

••[SPACE <ARITHMETIC EXPRESS 1 0N> 1 " CAUSES THE LINEPRINTER TO SPACE 
THE NUMBER OF LINES DENOTED BY THE <ARITHMETiC EXFRESSION> AFTER 
PRINTING THE CURRENT RECORD. ON OTHER TYPES OF DEVICES IT CAUSES 



3) 
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THE NUMBER OF RECORDS SIGNIFIED BY THE <ARITHMETIC EXPRESSION) TO 
BE SPACED. "[SKIP <ARITHMETIC EXPRESS I ON >] " CAUSES THE LINEPRINTER 
TO SKIP TO THE CHANNEL INDICATED BY THE <ARITHMETIC EXPRESSION). 
AFTER PRINTING THE CURRENT RECORD. 

IF THE FILE IS NOT A PRINTER FILE, <RECORD NUMBER OR CARRIAGE 
CONTROL) IS INTERPRETED AS A RECORD NUMBER AS DESCRIBED UNDER <READ 
STATEMENT) . 

IF THE <RECORD NUMBER OR CARRIAGE CONTROL) IS "[STACKER <ARITHMETIC 
EXPRESSION)]", THE PRIMARY (NORMAL) STACKER IS CHOSEN WITH A VALUE 
OF ZERO (0), AND THE ALTERNATE ( AUX I LL I ARY ) STACKER IS CHOSEN WITH 
A VALUE OF ONE ( 1) . 

THE NUMBER OF WORDS WRITTEN IS THE SMALLEST OF: 

A. THE NUMBER OF ELEMENTS IN THE <ARRAY ROW) OR ITEM 
RrrrprKirrn dv tuit /doimtitd rvDorccrnMs 

B. THE MAXIMUM RECORD LENGTH ( " MAXRECS I ZE " ) , 

C. THE ABSOLUTE VALUE OF THE <WORD COUNT). 

WHEN UNBLOCKED RECORDS ARE BEING USED. THE BUFFER SIZE IS THE 
MAXIMUM RECORD LENGTH. (NOTE THAT IF THE UNITS ATTRIBUTE=1, AND 
INTMODE 9^ 0, THEN ALL COUNTS REPRESENT CHARACTERS NOT WORDS . 3 

DIRECT I/O BRINGS THE USER CLOSER TO THE ACTUAL INPUT/OUTPUT 
nprPATiriM rccrMTTAiiv tt dtomttc t/n npc-DATiriMe xn or prTDroDMri^ 

ASYNCHRONOUSLY - IN PARALLEL WITH PROGRAM EXECUTION - AND ALLOWS 
THE I/O TIME AND PROCESSING TIME TO BE OVERLAPPED WITHIN A SINGLE 
PROGRAM . 

TO PERFORM DIRECT I/O ON A FILE (LET US CALL IT "FID") ONE MUST 
FIRST DECLARE THE FILE AS A DIRECT FILE. 
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THE SYNTAX FOR A DIRECT I/O READ OR WRITE EMPLOYS THE "<ARITHMETIC 
EXPRESSION>, <ARRAY ROW>" FORM, AND THE "KEVENT DES I GNATOR> ] " CAN 
BE USED. THE <ARRAY ROW> IS CALLED THE USERS I/O AREA AND THE 
DIRECT ARRAY IDENTIFIER MUST BE USED IN THE <ARRAY ROW> CONSTRUCT. 
THUS TO READ DIRECT TEN WORDS FROM FID INTO DIRECT ARRAY "A" USING 
THE EVENT EVT WE WRITE: " RE AD ( F I D , 1 , A [ * ] ) [ EVT ] ; " . WHEN EXECUTING 
THIS <STATEMENT>, THE MCP ESTABLISHES A RELATIONSHIP BETWEEN THE 1/ 
AREA AND THE EVENT EVT. 

HOWEVER, BEFORE ANY SUBSEQUENT USE OF THE I/O AREA CAN BE MADE IN 
THE PROGRAM, EITHER FOR CALCULATIONS OR FOR FURTHER I/O, WE MUST BE 
SURE THAT THE DIRECT I/O OPERATION IS COMPLETE. THE EVENT 
MECHANISM TELLS US THIS BY SETTING THE "HAPPENED" BIT ASSOCIATED 
WITH EVT WHEN THE READ OPERATION IS FINISHED. THIS BIT MAY BE 
INSPECTED BY MEANS OF THE BOOLEAN INTRINSIC FUNCTION "HAPPENED". 
THE USER MAY ALSO USE A <WAIT STATEMENT> TO DEACTIVATE THE PROCESS 
UNTIL THE "HAPPENED" BIT IS SET. ONCE THE OPERATION IS COMPLETED, 
THE "HAPPENED" BIT SHOULD BE RESET BEFORE REUSING EVT. 

EXAMPLES: 



WRITE (LINE. 14, POINTERID) 

BOOLVAR := WRITE (FIB, WORDCOUNT , A[»3) 

WRITE (FYLE, AMOUNT, ARRAYID) [ ALLOVER 1 
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8.8. INTERRUPT STATEMENTS 



SYNTAX : 

<INTERRUPT STATEMENT> ::= <ATTACH STATEMENT> / <DETACH STATEMENT> / 

<ENABLE STATEMENT) / <DISABLE STATEMENT) 
<ATTACH STATEMENT) ::= ATTACH <INTERRUPT IDENTITIER) TO 

<EVENT DESIGNATOR) 



<DETACH STATEMENT) 
<ENABLE STATEMENT) 
<DISABLE STATEMENT) 



= DETACH <INTERRUPT IDENTIFIER) 

= ENABLE <INTERRUPT IDENTIFIER) 

:= DISABLE <INTERRUPT IDENTIFIER) 



SEMANTICS: 

THE <ATTACH STATEMENT) IS USED TO ASSOCIATE AN INTERRUPT WITH AN 
EVENT. ATTACHING AN INTERRUPT TO AN EVENT WITH AN <ATTACH 
^ I rv , i_,,c,M , ^ bi^nviLo lu inri_iuiiLT LiNABLt I Ht INIERRUPT. AN INTERRUPT 
MUST BE "ENABLED" AND "ATTACHED" TO AN EVENT BEFORE IT CAN HAVE ANY 
EFFECT. 

AN INTERRUPT MAY NOT BE ATTACHED TO MORE THAN ONE EVENT AT A TIME. 
HOWEVER. SEVERAL INTERRUPTS MAY BE ATTACHED TO THE SAME EVENT AT 
THE SAME TIME. 

THE <DETACH STATEMENT) SEVERS THE ASSOCIATION BETWEEN AN INTERRUPT 
AND THE EVENT TO WHICH IT IS ATTACHED. THIS STATEMENT IMPLICITLY 
DISABLES THE INTERRUPT. 

THE <ENABLE STATEMENT) AND THE <DISABLE STATEMENT) ARE USED TO 

EXPLICITLY ENABLE OR DISABLE AN INTERRUPT. THEY DIFFER FROM THE 

<ATTACH STATEMENT) AND <DETACH STATEMENT) IN THAT THEY DO NOT 

AFFECT THE ASSOCIATION BETWEEN THE INTERRUPT AND THE EVENT. 



EXAMPLES : 



g_ 3Lf 
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ATTACH I 1 TO EVT ; 
DISABLE II; 
ENABLE I 1 ; 
DETACH I 1 ; 
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8.9. ON STATEMENT 



SYNTAX 



<0N STATEMENT) ::= ON <FAULT NAME) / 
ON <FAULT NAME) , <STATEMENT> 

<FAULT NAME) ::= ANYFAULT / BOTTOMOFSTACK / 

EXPONENTOVERFLOW / EXPONENTUNDERFLOW / I NACT I VEQUEUE / 
INTEGEROVERFLOW / I NVAL I DADDRESS / INVALIDINDEX / 
INVALIDOP / INVALIDPROGRAMWORD / LOOP / MEMORYPARITY / 
MEMORYPROTECT / PROGRAMMEDOPERATOR / SCANPARITY / 
SEQUENCE / STACKOVERFLOW / STACKUNDERFLOW / 
STRINGPROTECT / ZERODIVIDE 

SEMANTICS: 



THE <0N STATEMENT) IS USED TO ENABLE COR DISABLE) AN INTERRUPT FOR 
ONE OF 19 FAULT CONDITIONS. "ANYFAULT" SPECIFIES THAT ANY ONE OF 
THE 19 FAULTS INVOKES THE <STATEMENT). 

"ON <FAULT NAME) . <STATEMENT)" ENABLES THAT <STATEMENT> AS THE 
INTERRUPT CODE. "ON <FAULT NAME)" DISABLES ANY PREVIOUSLY ENABLED 
INTERRUPT FOR THAT FAULT. 

ONCE ENABLED, THE INTERRUPT REMAINS ENABLED UNTIL: 

A. THE PROCEDURE OR <BLOCK) CONTAINING THE <0N STATEMENT) IS 
EXITED; 

B. THE INTERRUPT IS EXPLICITLY DISABLED; 

C. A NEW INTERRUPT IS ENABLED FOR THE SAME FAULT CONDITION. 



WHENEVER AN EXIT IS MADE FROM THE <BLOCK) CONTAINING AN <0N 
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STATEMENT>, THE INTERRUPT STATUS FOR THAT FAULT CONDITION REVERTS 
TO WHATEVER WAS ENABLED WHEN THE <BLOCK> WAS ENTERED. 

THE INTERRUPT <STATEMENT> MUST EITHER BE AN UNCONDITIONAL GO TO (OR 
A <COMPOUND STATEMENT) OR <BLOCK> CONTAINING AN UNCONDITIONAL GO 
TO), SINCE THE INTERRUPTED CODE CANNOT BE RESUMED. 

UPON ENTRY INTO THE <STATEMENT>, THE TOP OF THE STACK CONTAINS A 
"FAULT NUMBER" WHICH SPECIFIES THE NATURE OF THE FAULT. (SEE THE 
"TOPOFSTACK" INTRINSIC.) THIS IS A PARTICULAR IMPORTANCE IF 
"ANYFAULT" IS USED. THE VALUES AND MEANINGS ARE AS FOLLOWS: 

1 ZERODIVIDE 

2 EXPONENTOVERFLOW 

3 EXPONENTUNDERFLOW 

4 INVALIDINDEX 

5 INTEGEROVERFLOW 

6 INACTIVEQUEUE 

7 MEMORYPROTECT 

8 INVALIDOP 

9 LOOP 

10 MEMORYPARITY 

11 SCANPARITY 

12 INVALIDADDRESS 

13 STACKOVERFLOW 

14 STRINGPROTECT 

15 PROGRAMMEDOPERATOR 

16 BOTTOMOFSTACK 

17 SEQUENCE 

18 INVALIDPROGRAMWORD 

19 STACKUNDERFLOW 
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8.10. PROCEDURE STATEMENTS AND FUNCTION DESIGNATORS 



SYNTAX 
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<PROCEDURE STATEMENT> ::= <PROCEDURE IDENTIFIER> 

<ACTUAL PARAMETER PART> 
<FUNCTION DESIGNATOR) ::= <FUNCTION IDENTIFIER) 

<ACTUAL PARAMETER PART> 
<FUNCTION IDENTIFIER) :;= <IDENTIFIER> 

<ACTUAL PARAMETER PART) ::= <EMPTY) / (<ACTUAL PARAMETER LIST)) 
<ACTUAL PARAMETER LIST) ::= <ACTUAL PARAMETER) / 

<ACTUAL PARAMETER LIST) <PARAMETER DELIMITER) 

<ACTUAL PARAMETER) 
<ACTUAL PARAMETER) : : - <EXPRESSION) / <PROCEDURE IDENTIFIER) / 

<EVENT DESIGNATOR) 
<PARAMETER DELIMITER) ::= , / 

)"^ANY SEQUENCE OF LETTERS AND SINGLE SPACESi."( 

SEMANTICS: 



1. A PROCEDURE STATEMENT CAUSES A PREVIOUSLY DECLARED PROCEDURE 
TO BE EXECUTED. 

2. A FUNCTION DESIGNATOR RETURNS A VALUE. HOWEVER, WHEN A 
FUNCTION DESIGNATOR IS USED AS A PROCEDURE STATEMENT, THIS 
VALUE IS DELETED. 

3. THE ACTUAL PARAMETER LIST OF THE PROCEDURE STATEMENT MUST HAVE 
THE SAME NUMBER OF ENTRIES AS THE FORMAL PARAMETER LIST OF THE 
PROCEDURE DECLARATION HEADING. 

H. FORMAL AND ACTUAL PARAMETERS MUST CORRESPOND IN TYPE AND KIND 

OF QUANTITIES. THE CORRESPONDENCE IS OBTAINED BY TAKING THE 
ENTRIES OF THESE TWO LISTS IN THE SAME ORDER. 
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5. THE FOLLOWING REMARKS CONCERN PARAMETERS: 

A. CONSTANTS ARE PASSED BY VALUE, NO MATTER HOW THE 
CORRESPONDING FORMAL PARAMETER IS SPECIFIED. 

B. SUBSCRIPTED VARIABLES, WHEN PASSED BY NAME, WILL NOT 
CAUSE ACCIDENTAL ENTRY, EVEN IF THE SUBSCRIPTS ARE 
NOT CONSTANT. 

C. AS A RESULT OF B, ABOVE, ANY CALL-BY-NAME PARAMETER 
MAY NOT BEGIN WITH A SUBSCRIPTED VARIABLE UNLESS IT 
IS JUST A SUBSCRIPTED VARIABLE. (NOTE: PARENTHESES 
AROUND THIS VARIABLE WILL REMEDY THIS.) 

D. SUBEXPRESSIONS OF THE FORM X+X ARE OPTIMIZED TO THE 
FOLLOWING: 

VALC X 

DUPL 

ADD 
EVEN IF X IS A FORMAL CALL-BY-NAME PARAMETER WITH 
SIDE EFFECTS. 

EXAMPLES: 



PROCEDURE STATEMENTS: 

ALG0RITHM123 (A+2) 

ALG0RITHM5H6 C A + 2 )" AVERAGE PLUS TWO " ( C ALCRULE ) 

GETESPDISK 

FUNCTION DESIGNATORS: 



J( A,B + 2,Qt I ,L] ) 

G A 3 V L ( K ) "TEMPERATURE" ( T ) "PRESSURE" ( P ) 

RANDOMNO 
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ACTUAL PARAMETER PARTS: 

(A ,B + 2,Q[ I , J] ) 

( A + 2) 

(K) "TEMPERATURE" (T) "PRESSURE" (P) 

ACTUAL PARAMETERS: 

A + E 

A 

CHECKOUT 

AE2] 

EVENT DESIGNATORS: 

El 

XERXES 

ZEUS[2,3] 

PARAMETER DELIMITER: 
) "TEMPERATURE" ( 
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8.11. REPLACE AND SCAN STATEMENTS 



SYNTAX 



<REPLACE STATEMENT) ::= REPLACE < DEST I NAT I ON > BY <SOURCE LIST> 

<SCAN STATEMENT) ::= SCAN <SOURCE> <SCAN PART> 

<DESTINATION> ::= <UPDATE POINTER) <POINTER EXPRESSION) 

<SOURCE LIST) ::= <SOURCE PART) / <SOURCE PART) , <SOURCE LIST) 

<SOURCE) ::= <POINTER SOURCE) / <ARITHMETIC SOURCE) 

<SCAN PART) ::= <SCAN COUNT) <CONDITION) / <CONDITION) 

<SOURCE PART) ::= <SOURCE) <TRANSFER PART) / <STRING) 

<TRANSFER PART) / <ARITHMETIC SOURCE) 

<ARITHMETIC TRANSFER PART) / <STRING) 
<TRANSFER PART) ::= <SCAN COUNT) <CONDITION) / <CONDITION) 

<FINAL COUNT) <UNITS) / WITH <PICTURE DESIGNATOR) / 

<FINAL COUNT) WITH <TRANSLATE TABLE) 
<ARITHMETIC TRANSFER PART) ::= <DIGIT COUNT) / <CORRECT COUNT) / 

<CORRECT COUNT) <CONDITION) 



<SCAN COUNT) 
<FINAL COUNT) 
<DIGIT COUNT) 
<CORRECT COUNT) 



= FOR <UPDATE COUNT) <ARITHMETIC EXPRESSION) 
:= FOR <ARITHMETIC EXPRESSION) 
:= FOR <ARITHMETIC EXPRESSION) DIGITS 
::= <SCAN COUNT) CORRECTLY 



<POINTER SOURCE) ::= <UPDATE POINTER) <POINTER EXPRESSION) 
<ARITHMETIC SOURCE) ::= <UPDATE VARIABLE) <ARITHMETIC EXPRESSION) 
<CONDITION) ::= WHILE <RELATIONAL OPERATOR) 

<ARITHMETIC EXPRESSION) / UNTIL <RELATIONAL OPERATOR) 
<ARITHMETIC EXPRESSION) / UNTIL IN <TABLE) / WHILE IN <TABLE> 
<TABLE) ::= <ARRAY ROW) / <SUBSCRIPTED VARIABLE) 
<TRANSLATE TABLE) ::= <TABLE> 

<PICTURE DESIGNATOR) ::= <PICTURE IDENTIFIER) <REPEAT PARAMETERS) 
<REPEAT PARAMETERS) ::= <EMPTY> / (<UNSIGNED INTEGER LIST)) 
<UNSIGNED INTEGER LIST) ::= <ARITHMETIC EXPRESSION) / 

<ARITHMETIC EXPRESSION) , <UNSIGNED INTEGER LIST) 
<UPDATE POINTER) ::= <EMPTY) / <POINTER IDENTIFIER) : 
<UPDATE VARIABLE) ::= <EMPTY> / <SIMPLE VARIABLE) : 
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<UPDATE COUNT> ::= <EMPTY> / <SIMPLE VARIABLE> 
<UNITS> ::= <EMPTY> / WORDS / OVERWRITE 

SEMANTICS: 



IN THE FOLLOWING DISCUSSION, THE TERMS "REPLACE" AND "TRANSFER" ARE 
SYNONYMOUS. 

1. A <REPLACE STATEMENT) CA-USES INFORMATION TO BE TRANSFERRED 
FROM THE <SOURCE> TO THE < DEST I NAT 1 0N> . THE UNIT OF 
INFORMATION MAY BE WORDS OR CHARACTERS. AND THE NUMBER OF 
UNITS TRANSFERRED MAY BE SPECIFIED BY A COUNT OR DETERMINED BY 
A <CONDITION>. IF THE UNIT OF INFORMATION IS A WORD, THEN 
BOTH THE <SOURCE> AND THE < DEST I NAT 1 0N> WILL BE RIGHT-ADJUSTED 
TO A WORD BOUNDARY BEFORE THE TRANSFER BEGINS. 

2. A <SCAN STATEMENT) CAUSES THE INFORMATION IN THE SOURCE TO BE 
SCANNED. THE UNIT OF INFORMATION IS A CHARACTER, AND A 
<CONDITION> MUST BE PRESENT. THE NUMBER OF CHARACTERS SCANNED 
MAY BE DETERMINED BY THE COUNT OR THE <CONDITION>. 

3. THE DEFAULT UNIT FOR THE <REPLACE STATEMENT) IS CHARACTERS. 
"WORDS" AND "OVERWRITE" BOTH MEAN UNITS OF ONE WORD. IN 
ADDITION, "OVERWRITE" IGNORES MEMORY PROTECTION ON THE 
DESTINATION AND THE SOURCE, AND IT ALSO IGNORES MEMORY PARITY 
ERRORS ON THE DESTINATION. 

H. AT THE END OF A REPLACE OR SCAN STATEMENT, CERTAIN UPDATED 
INFORMATION IS AVAILABLE. 

A. THE DESTINATION <UPDATE POINTER) POINTS TO THE NEXT 
POSITION TO BE FILLED. IF THE UNIT OF TRANSFER IS A 
WORD, THE DESTINATION <UPDATE POINTER) WILL POINT TO 
THE LEFTMOST CHARACTER OF THE NEXT WORD TO BE FILLED 

B. THE SOURCE <UPDATE POINTER) POINTS TO THE NEXT UNIT 
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TO BE SCANNED OR TRANSFERRED. IF THE UNIT IS A 
WORD, THE <UPDATE POINTER> WILL POINT TO THE 
LEFTMOST CHARACTER OF THE WORD. 

C. FOR SCANS AND TRANSFERS, AN <ARITHMETIC SOURCE> 
SHOULD BE THOUGHT OF AS BEING CIRCULAR, WITH THE 
HIGH-ORDER AND LOW-ORDER ENDS CONTIGUOUS. THE 
SOURCE <UPDATE VARIABLE) RETURNS THE ORIGINAL 
EXPRESSION ROTATED IN SUCH A WAY THAT THE NEXT 
CHARACTER TO BE USED IS IN THE HIGH-ORDER POSITION. 

D. EACH TIME A UNIT OF INFORMATION IS SCANNED OR 
TRANSFERRED. THE ORIGINAL COUNT AS GIVEN BY AN 
<ARITHMETIC EXPRESSION) IS DECREMENTED BY 1. THIS 
CONINUES UNTIL THE COUNT REACHES IF NO <CONDITION> 
IS IMPOSED. IF A <CONDITION> IS IMPOSED, THE COUNT 
MAY NOT REACH AND THE <UPDATE COUNT> RETURNS THE 
VALUE OF THE COUNT AT THE END OF THE TRANSFER. THE 
RESERVED WORD "TOGGLE" WILL BE TRUE IF THE <UPDATE 
COUNT> IS 0. 

5. THE <DIGIT COUNT> CAUSES THE SOURCE <ARITHMETIC EXPRESSION) 
THE DESIGNATED NUMBER OF LOW-ORDER DECIMAL DIGITS IS 
TRANSFERRED TO THE <DEST I NAT I ON) , AND THE SOURCE <UPDATE 
VARIABLE.) RETURNS THE ORIGINAL EXPRESSION "DIV" THE DESIGNATED 
POWER OF 10. 

6. THE <CORRECT COUNT) CAUSES THE SOURCE <ARITHMETIC EXPRESSION) 
TO BE ROTATED IN SUCH A WAY THAT THE APPROPRIATE NUMBER OF 
LOW-ORDER CHRACTERS APPEAR IN THE HIGH-ORDER ORDER END OF THE 
SOURCE. AFTER THIS ROTATION. A NORMAL TRANSFER WILL OCCUR. 
IF, FOR EXAMPLE, ONE CHARACTER WERE TO BE TRANSFERRED 
CORRECTLY, THE LOW-ORDER CHARACTER WOULD BE MOVED TO THE HIGH- 
ORDER POSITION BEFORE THE TRANSFER OCCURS. SINCE TRANSFERS 

TRANSFER OF R I GHT- JUST I F I ED CHARACTERS IN AN <ARITHMETIC 
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EXPRESSION> . 



7. SCANS AND TRANSFERS ALWAYS WORK FROM LEFT TO RIGHT ON BOTH 
<DESTINATION> AND <SOURCE>, INCLUDING <ARITHMETIC SOURCE>. 
THE <CORRECT COUNT) AND <DIGIT COUNT> MAY BE CONSIDERED 
EXCEPTIONS. 

8. THE <TRANSLATE TABLE) WORKS IN THE FOLLOWING WAY. EACH SOURCE 
CHARACTER IS USED TO FIND AN EIGHT-BIT TRANSLATION CHARACTER 
IN AN <ARRAY ROW>. THE HIGH-ORDER PART OF THIS CHARACTER IS 
DISCARDED TO MAKE IT FIT THE < DEST I NAT 1 0N> CHARACTER SET, AND 
IT IS THEN STORED IN THE DESTINATION, THE EIGHT-BIT 
TRANSLATION CHARACTER IS FOUND IN THE FOLLOWING WAY. THE LOW- 
ORDER TWO BITS OF THE SOURCE CHARACTER ARE USED AS THE 
CHARACTER INDEX, AND THE REMAINING HIGH-ORDER BITS ARE USED AS 
THE WORD INDEX. THE WORD INDEX IS EITHER USED AS A SUBSCRIPT 
TO THE <ARRAY ROW> OR IS ADDED TO THE RIGHTMOST SUBSCRIPT OF 
THE <SUBSCRIPTED VARIABLE). IN THE RESULTING WORD, CHARACTER 
NUMBER (E+ (CHARACTER INDEX)) IS THE TRANSLATION CHARACTER. 
AS USUAL. THE CHARACTERS ARE NUMBERED LEFT TO RIGHT, SO THAT 
THE TRANSLATION CHARACTER WILL BE ONE OF THE FOUR LOW-ORDER 
EIGHT-BIT CHARACTERS IN THE WORD. 

9. THE WHILE <RELATIONAL OPERATOR) FORM OF <CONriTION> CAUSES 
TERMINATION OF THE SCAN OR TRANSFER WHEN THE SOURCE CHARACTER 
CEASES TO HAVE THE DESIGNATED RELATION TO THE LOW-ORDER 
CHARACTER OF THE CONDITION <ARITHMETIC EXPRESSION). THE 
CHARACTER WHICH CAUSES TERMINATION OF THE SCAN OR TRANSFER 
WILL NOT BE SCANNED OR TRANSFERRED, THUS THE SOURCE <UPDATE 
POINTER) IS LEFT POINTING AT THAT CHARACTER. 

10. THE UNTIL <RELATIONAL OPERATOR) FORM OF <CONDITION> CAUSES 
TERMINATION OF THE SCAN OR TRANSFER WHEN THE SOURCE CHARACTER 
HAS THE DESIGNATED RELATION TO THE LOW-ORDER CHARACTER OF THE 
CONDITION <ARITHMETIC EXPRESSION). THE CHARACTER WHICH CAUSES 
TERMINATION OF THE SCAN OR TRANSFER WILL NOT BE SCANNED OR 
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TRANSFERRED. 



11. <CONDITION>S INVOLVING THE <TABLE> CONSTRUCT USE THE BITS OF 
THE SOURCE CHARACTER TO FIND A TEST BIT IN AN <ARRAY ROW>. 
THE CHARACTER IS "IN" THE <TABLE> IFF THE TEST BIT IS ON. THE 
TEST BIT IS FOUND IN THE FOLLOWING WAY. THE LOW-ORDER FIVE 
BITS OF THE SOURCE CHARACTER (FOUR BITS IF THE SOURCE 
CHARACTER ONLY HAS FOUR) ARE USED AS THE BIT INDEX, AND THE 
REMAINING BITS, IF ANY, ARE USED AS THE WORD INDEX. THE WORD 
INDEX IS EITHER USED AS A SUBSCRIPT TO THE <ARRAY ROW> OR IS 
ADDED TO THE RIGHTMOST SUBSCRIPT OF THE <SUBSCRIPTED VARIABLE) 
IN THE RESULTING WORD, BIT NUMBER (31 - (BIT INDEX)) IS THE 
TEST BIT. AS USUAL, BITS ARE NUMBERED RIGHT TO LEFT, SO THAT 
THE TEST BIT WILL BE ONE OF THE LOW-ORDER 32 BITS IN THE WORD. 

IE. IF THE <SOURCE> IS A <STRING>, THE <STRING> IS TRANSFERRED TO 
THE <DESTINATION> UNDER THE CONTROL OF A COUNT. IF THE COUNT, 
C, IS NOT GREATER THAT THE STRING LENGTH, L, THEN C CHARACTERS 
ARE COPIED INTO THE DESTINATION. IF THE COUNT, C, IS GREATER 
THAN THE LENGTH, L, AND THE STRING IS MORE THAN 48 BITS LONG, 
THE BEHAVIOR IS UNPREDICTABLE. IF C IS GREATER THAN L AND THE 
STRING IS SHORTER THAN 48 BITS, THEN THE STRING IS 
CONCATENATED WITH ITSELF- UNTIL THE TOTAL LENGTH IS GREATER 
THAN HS BITS. THE FIRST 48 BITS OF THIS STRING ARE USED AS A 
SOURCE AND ARE REPEATEDLY COPIED INTO THE DESTINATION UNTIL 
THE COUNT IS EXHAUSTED. FOR EXAMPLE, 8 "ABCD" FOR 10 
TRANSFERS " ABCDABABCD " , NOT " ABCDABCDAB " . 

13. <SOURCE> WITH <PICTURE IDENTIFIER) TRANSFERS CHARACTERS UNDER 
THE CONTROL OF THE PICTURE. (SEE <PICTURE DECLARATION).) 
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9. EXPRESSIONS 



9.1. GENERAL 



AN EXPRESSION IS USED TO OBTAIN VALUES 



SYNTAX : 



<EXPRESSION> ::= OENERAL COMPONENT> / <ARITHMETIC EXPRESSION> / 
<ARRAY EXPRESSION) / <BOOLEAN EXPRESSION) / 
<CASE EXPRESSION) / <CONDITIONAL EXPRESSION) / 
<DESIGNATIONAL EXPRESSION) / <POINTER EXPRESSION) / 
<REFERENCE EXPRESSION) / <WORD EXPRESSION) 

SEMANTICS: 



EXPRESSIONS ARE RULES BY WHICH VALUES MAY BE OBTAINED BY EXECUTING 
VARIOUS OPERATIONS ON THE COMPONENTS OF WHICH EXPRESSIONS ARE 
COMPOSED. CONDITIONAL AND CASE EXPRESSIONS ARE MORE COMPLICATED 
BECAUSE ONE OF SEVERAL ALTERNATIVE EXPRESSIONS MUST FIRST BE 
SELECTED FOR EVALUATION. 
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9.E. ARITHMETIC EXPRESSIONS 



SYNTAX: 



<ARITHMETIC EXPRESSION> ::= <CONDITIONAL ARITHMETIC EXPRESSION> / 

<ARITHMETIC ASSIGNMENT) / <SIMPLE ARITHMETIC EXPRESSION) / 

<WORD EXPRESSION) 
<CONDITIONAL ARITHMETIC EXPRESSION) ::= <IF CLAUSE) 

<ARITHMETIC EXPRESSION) ELSE <ARITHMETIC EXPRESSION) 
<ARITHMETIC ASSIGNMENT) ::= 

<ARITHMETIC VARIABLE) <REPLACEMENT OPERATOR) 

<ARITHMETIC EXPRESSION) 
<SIMPLE ARITHMETIC EXPRESSION) ::= 

<SIMPLE ARITHMETIC EXPRESSION) <ADDING OPERATOR) <TERM) / 

<UNARY OPERATOR) <TERM) / <TERM> 
<ADDING OPERATOR) ::=+/- 
<UNARY OPERATOR) ::= <ADDING OPERATOR) 

<TERM) ;:= <FACTOR) / <TERM) <MULTIPLYING OPERATOR) <FACTOR) . 
<FACTOR) ::= <PRIMARY) / <PRIMARY) * <INTEGER) 
<MULTIPLYING OPERATOR) ::= x / <SLASH) / DIV / MOD / MUX 
<PRIMARY) ::= <UNSIGNED NUMBER) / <STRING) / 

<FIELD DESIGNATOR) / <OPERAND) / <PRIMARY) & 

<ARITHMETIC EXPRESSION) < CONCATENAT I ON) / <PRIMARY) 

& <LAYOUT> 
<FIELD DESIGNATOR) ::= <OPERAND) . <FIELD IDENTIFIER) / 

<ARRAY PRIMARY) . <FIELD IDENTIFIER) 
<OPERAND) ::= <ARITHMETIC VARIABLE) 

(<ARITHMETIC EXPRESSION)) / 

<ARITHMETIC FUNCTION DESIGNATOR) / 

<CASE HEAD) (<ARITHMETIC EXPRESSION LIST)) 
<CONCATENATI0N) ::= KLEFT B I T-TO) : <NUMBER OF BITS)] / 

[<LEFT BIT-TO) : <LEFT B I T-FROM) : <NUMBER OF BITS)] 
<LEFT BIT-TO) ::= <ARITHMETIC EXPRESSION) 
<NUMBER OF BITS) ::= <ARITHMETIC EXPRESSION) 
<LEFT BIT-FROM) ::= <ARITHMETIC EXPRESSION) 
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<LAYOUT> ::= <LAYOUT IDENTIFIER) KFIELD VALUE LIST>) 
<FIELD VALUE LIST> ::= <FIELD VALUE> / <FIELD VALUE LIST>, 

<FIELD VALUE> 
<FIELD VALUE> ::= <EMPTY> / <ARITHMETIC EXPRESSION) / * 
<ARITHMETIC VARIABLE) ::= <VARIABLE> 
<ARITHMEiIC FUNCTION DESIGNATOR) ::= <FUNCTION DESIGNATOR) / 

<ARITHMETIC INTRINSIC) 
<ARITHMETIC EXPRESSION LIST) ::= <ARITHMETIC EXPRESSION) / 

<ARITHMETIC EXPRESSION LIST) , <ARITHMETIC EXPRESSION) 

SEMANTICS: 



1. AN ARITHMETIC EXPRESSION OBTAINS A NUMERIC VALUE. 

E. A VARIABLE, VALUE DESIGNATOR, OR FUNCTION DESIGNATOR USED AS A 
PRIMARY IN AN ARITHMETIC EXPRESSION MUST BE OF AN ARITHMETIC 
TYPE: INTEGER, REAL. OR DOUBLE. 

3. EACH EXPRESSION IN A FIELD VALUE LIST OR EXPRESSION LIST USED 
IN AN ARITHMETIC EXPRESSION MUST ALSO BE OF AN ARITHMETIC TYPE 

4. THE VALUE OF AN ARITHMETIC EXPRESSION MAY BE EXPRESSED IN 
SINGLE OR DOUBLE PRECISION. 

A. THE PRECISION OF A CASE EXPRESSION VALUE IS DOUBLE 
IF ANY ONE OF THE EXPRESSIONS OF ITS EXPRESSION LIST 
IS DOUBLE. OTHERWISE THE PRECISION IS SINGLE. 

B. THE PRECISION OF THE VALUE OF A CONDITIONAL 
ARITHMETIC EXPRESSION IS DOUBLE IF ANY OF THE 
EXPRESSIONS IN THE STATEMENT IS DOUBLE PRECISION. 
OTHERWISE THE PRECISION OF THE VALUE IS SINGLE. 

C. EXTENDED PRECISION VALUES MAY NOT BE USED IN A FIELD 
DESIGNATOR AS A BASE. 
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5. THE OPERATOR "DIV" DENOTES INTEGER DIVISION. Y DIV Z = SIGN 
( Y/Z)xENTIER( ABS( Y/Z) ) 

6. THE OPERATOR "MOD" DENOTES REMAINDER DIVISION. Y MOD Z = Y - 
CZx (SIGN( Y/Z) X ENTIER (ABS(Y/Z)))) 

7. THE OPERATOR "MUX" DENOTES DOUBLE-PRECISION MULTIPLICATION. 
ITS OPERANDS MAY BE SINGLE OR DOUBLE PRECISION. 

8. THE EXPONENTIATION OPERATOR, * , IS DEFINED FOR INTEGER- 
CONSTANT EXPONENTS ONLY. 

9. THE SEQUENCE IN WHICH OPERATIONS ARE PERFORMED IS DETERMINED 
BY THE PRECEDENCE OF THE OPERATORS. 

10. THE ORDER OF PRECEDENCE OF OPERATORS IS: 

FIRST: * 

SECOND: x, /, MOD, DIV, MUX 

THIRD: +, - 

11. WHEN OPERATORS ARE OF THE SAME ORDER OF PRECEDENCE, THE 
SEQUENCE OF OPERATION IS DETERMINED FROM THE LEFT-TO-RIGHT 
ORDER OF APPEARANCE OF THE OPERATORS. 

12. AN EXPRESSION BETWEEN PARENTHESES IS EVALUATED BY ITSELF AND 
THIS VALUE IS USED IN SUBSEQUENT CALCULATIONS. THAT IS, THE 
NORMAL ORDER OF PRECEDENCE OF OPERATORS CAN BE OVERRIDDEN BY 
THE JUDICIOUS PLACEMENT OF PARENTHESES. THEREFORE, THE 
DESIRED ORDER OF EXECUTION WITHIN AN EXPRESSION CAN ALWAYS BE 
ARRANGED BY THE APPROPRIATE POSITIONING OF PARENTHESES. 

13. NO TWO OPERATORS MAY BE ADJACENT. 

14. THE CONCATENATION FORM OF <ARITHMETIC EXPRESSION) 
PROVIDES AN EFFICIENT METHOD OF FORMING A <PRIMARY> FROM 
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SELECTED PARTS OF TWO OR MORE <PRIMARY>S. A CONCATENATION 
<PRIMARY> IS FORMED BY LINKING PART OF A <PRIMARY> WITH THE 
SPECIFIED PORTION OF AN <ARITHMETIC EXPRESSION> VALUE. SINCE 
<ARITHMETIC EXPRESSION> IS RECURSIVE WITH RESPECT TO 
CONCATENATION, ANY NUMBER OF <CONCATENAT I 0N> TERMS MAY BE USED 
IN CONSTRUCTING A <PRIMARY>. 

THE <LEFT BIT-TO> PART OF A < CONCATENAT I 0N> TERM DEFINES THE 
LEFTMOST BIT LOCATION OF THE DATA FIELD IN THE DESTINATION 
WORD. THE <LEFT BIT-FROM> PART DEFINES THE LEFTMOST BIT 
LOCATION OF THE DATA FIELD IN THE SOURCE WORD. THE <NUMBER OF 
BITS> PART SPECIFIES THE LENGTH OF THE DATA FIELD TO BE MOVED 
FROM THE SOURCE FIELD TO THE DESTINATION FIELD. 

IF THE <LEFT BIT-TO> : <NUMBER OF BITS> FORM OF 
<CONCATENATION> IS SPECIFIED, THE SOURCE FIELD IS ASSUMED TO 
START AT <NUMBER OF BITS>-1, THAT IS. THE SOURCE FIELD IS 
ASSUMED TO BE THE LOW-ORDER <NUMBER OF BITS> IN THE SOURCE 
WORD. 

IF MORE THAN ONE <CONCATENAT I 0N> TERM IS USED IN AN 
<EXPRESSI0N> , THEN THESE ARE EVALUATED FROM LEFT TO RIGHT. 

A <FIELD DESIGNATOR> ALLOWS OPERATIONS TO BE PERFORMED ON ANY 
CONTIGUOUS FIELD WITHIN A WORD RATHER THAN THE WHOLE WORD. 
THE <LEFT BIT-FROM> PART DEFINES THE LEFTMOST BIT LOCATION OF 
THE FIELD. THE <NUMBER OF BITS> PART SPECIFIES THE LENGTH OF 
THE FIELD. 

THE <LEFT BIT-FROM> PARTS OF < CONCATENAT 1 0N> AND <FIELD 
DESIGNATOR>S MUST LIE IN THE RANGE OF THRU 47, WHERE BIT 
IS THE RIGHTMOST (OR LEAST SIGNIFICANT) BIT IN THE WORD. 
<NUMBER OF BITS> MUST LIE IN THE RANGE THROUGH 48. IF IT 
EXCEEDS THE NUMBER OF BITS REMAINING IN EITHER THE SOURCE OR 
DESTINATION WORDS, THESE FIELDS ARE CONTINUED AT BIT NUMBER 47 
(LEFTMOST) OF THE SAME WORD. 
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15. AN EMPTY FIELD VALUE CAUSES THE DEFAULT VALUE, AS SPECIFIED BY 
THE <FIELD VALUE PART> IN THE DECLARATION, TO BE ASSIGNED TO 
THE FIELD. A <FIELD VALUE> OF " * " CAUSES THE FIELD TO BE 
IGNORED. IF NO INITIAL VALUE IS SPECIFIED, THEN <EMPTY> IS 
EQUIVALENT TO "*" . 

16. IF THE <FIELD VALUE LIST) CONTAINS FEWER <FIELD VALUE>S THAN 
DECLARED IN THE CORRESPONDING <LAYOUT ITEM LIST>, THE COMPILER 
WILL EMIT CODE AS NECESSARY FOR THE REMAINING <FIELD VALUE 
PART>S WHICH ARE NOT <EMPTY>. 

EXAMPLES: 



ARITHMETIC EXPRESSIONS: 

3 

+ 3 

Q 

Q-V 

HO - (IF GONE THEN 2 ELSE Z/3) 

IF JOY THEN X ELSE H+Q 

WxU-Qx (S+CU) 

IF Q>0 THEN S+3xQ/A ELSE ZxS+3xA 

IF A>0 THEN U + V ELSE IF AxB>17 THEN U/V ELSE IF Ki^Y 

THEN V/U 

.57®12xA[Nx (N-1 ) /2, 0] 

QxV»2 

P MOD 2 

AI2, SIZ*2 DIV QUANT] -IF BOOEX THEN Q-Q+1 ELSE H 

SIMPLE ARITHMETIC EXPRESSIONS: 



Q + V 
Q-V 
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-Q 

3 

+ 3 

Q 

P MOD a 

Y*3 

4-xR DIV S 

A[ I ]-B[ J]+5.3 



TERMS 



Q 

Q MOD V 

1 .39'^®-'8 

SUM 

W[ I+E,S] 

Ex (X + Y ) 

Y*3 

Q MOD V DIV 2 



PRIMARIES: 



7 

J.K 

J 

Q + R 

VARINAME & LOOK (6, IF BOOEXP THEN Q-Q+1 ELSE 2, 

AN[3,5] ) 

a & SEET (X-F(A + B), IE, VO ) & NAW (27, TRUE) 
@-72 

7 

0&CONCAT( ) 
Q 



FIELD DESIGNATORS 
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SIGNIFY(X) .Z 
VARINAME. FIELDNAME 
FUNC( A.TRUE ) .F6 
(X-ARITHEXP(Z7)+Q MOD 2).F711 



FIELD OPERANDS 



CASE X-X+U OF (V, +27xF(Z,7) , ARYIE.BOOQ] ) 

Q 

TALLYHOCTFX) 

(Q+RxZ-T) 



LAYOUTS: 



CHAS (Q+R*6, F( A) ) 
GHT(ZY,7) 
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9.3. ARRAY EXPRESSIONS 



SYNTAX: 

<ARRAY EXPRESSION) ::= <ARRAY ASSIGNMENT) / <ARRAY PRIMARY) / 

<IF CLAUSE) <ARRAY EXPRESSION) ELSE <ARRAY EXPRESSION) 
<ARRAY ASSIGNMENT) : : = 

<ARRAY DESIGNATOR) <REPLACEMENT OPERATOR) <ARRAY EXPRESSION) 
<ARRAY DESIGNATOR) ::= <ARRAY IDENTIFIER) <SUBARRAY DESIGNATOR) / 

<ARRAY VARIABLE) 
<5UBARRAY DESIGNATOR) ::= <EMPTY) / 

KSUBSCRIPT PART) <SUBARRAY PART)] 



<SUBSCRIPT PART) 
<SUBARRAY PART) 
<ARRAY VARIABLE) 



::= <EMPTY) / <SUBSCRIPT LIST) , 

:= * / <SUBARRAY PART) . • 

::= <SIMPLE VARIABLE) / <ARRAY ITEM) 

<ARRAY ITEM) : := <ITEM) 

<ARRAY PRIMARY) ::= <ARRAY DESIGNATOR) / (<ARRAY EXPRESSION)) / 
<ARRAY PRIMARY) & <LAYOUT) / <WORD EXPRESSION) 



SEMANTICS: 

1. AN <ARRAY EXPRESSION) IS REPRESENTED BY AN UNINDEXED DATA 
DESCRIPTOR. 

2. AN <ARRAY DESIGNATOR) REFERENCES A DATA DESCRIPTOR. 

3. AN <ARRAY ASSIGNMENT) INITIALIZES OR CHANGES THE VALUES OF THE 

nKiuuo ri[n_uo iN inc. ounRcSPuNuiNu UAIA UtbCKll-'lOK. 

EXAMPLES: 



ARRAY EXPRESSIONS 



IF BOOVAR THEN ARRVAR [2,3,*] ELSE A2S3 - A1S3 
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AES2-A3S3 
ARVR[3, • ] 

ARRAY PRIMARIES: 

QVAR C3,*] 

(AaS2-A3S3) 

QVAR [2,*] & C2S 

ARRAY DESIGNATORS: 

NEXT 
NXT0N[2,3, * ] 

ARRAY VARIABLES: 

DELTA 

ARRAYNAME @ ARRAYDECQUE 

SUBARRAY DESIGNATORS: 

[ • ] 

[2, * ] 
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9.H. BOOLEAN EXPRESSIONS 



SYNTAX 



<BOOLEAN EXPRESSION> ::= <CONDITIONAL BOOLEAN EXPRESSION> / 

<BOOLEAN ASSIGNMENT> / <SIMPLE BOOLEAN EXPRESSION> / 

<WORD EXPRESSION> 
<CONDITIONAL BOOLEAN EXPRESSION> ::= 

<IF CLAUSE> <BOOLEAN EXPRESSION> ELSE <BOOLEAN EXPRESSION> 
<BOOLEAN ASSIGNMENT> ::= <BOOLEAN VARIABLE> <REPLACEMENT OPERATOR> 

<BOOLEAN EXPRESSION> 
<SIMPLE BOOLEAN EXPRESSION> ::- < I MPL I CAT I 0N> / 

<SIMPLE BOOLEAN EXPRESSI0N> EQV < I MPL I CAT I 0N> 
< IMPLICATION) ::= <BOOLEAN TERM> / < I MPL I CAT 1 0N> IMP <BOOLEAN TERM> 
<BOOLEAN TERM> : : = <BOOLEAN FACTOR> / <BOOLEAN TERM> OR 

<B0OLEAN FACTOR> 
<BOOLEAN FACTOR> ::= <BOOLEAN SECONDARY) / <BOOLEAN FACTOR) AND 

<BOOLEAN SECONDARY) 
<BOOLEAN SECONDARY) ::= <BOOLEAN PRIMARY) / NOT <BOOLEAN PRIMARY) 
<BOOLEAN PRIMARY) ::= <LOGICAL VALUE) / <RELATION) / 

<BOOLEAN ITEM) / <BOOLEAN FIELD DESIGNATOR) / 

<BOOLEAN OPERAND) / 

<BOOLEAN PRIMARY) & <BOOLEAN EXPRESSION) <CONCATENAT I ON) / 

<BOOLEAN PRIMARY) & <BOOLEAN LAYOUT) / <TABLE MEMBERSHIP) / 

<VALUE DESIGNATOR) 
<BOOLEAN ITEM) ::= <ITEM> 
<BOOLEAN FIELD DESIGNATOR) ::= 

<BOOLEAN OPERAND) . <FIELD IDENTIFIER) 
<BOOLEAN OPERAND) ::= ( <BO0LEAN EXPRESSION)) / 

<BOOLEAN VARIABLE) / <BOOLEAN FUNCTION DESIGNATOR) / 

<CASE HEAD) ( <BOOLEAN EXPRESSION LIST)) 
<BOOLEAN EXPRESSION LIST) ::= <BOOLEAN EXPRESSION) / 

<BOOLEAN EXPRESSION LIST) , <BOOLEAN EXPRESSION) 
<BOOLEAN LAYOUT) ::= <LAYOUT) 
<BOOLEAN VARIABLE) ::= <VARIABLE) 
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<BOOLEAN FUNCTION DESIGNATOR) ::= <FUNCTION DESIGNATOR) / 

<BOOLEAN INTRINSIC) 
<RELATION> ::= <ARITHMETIC RELATION) / <REFERENCE RELATION) / 

<STRING RELATION) / <POINTER RELATION) 
<ARITHMETIC RELATION) ::= <ARITHMETIC EXPRESSION) 

<ARITHMETIC RELATIONAL) <ARITHMETIC EXPRESSION) 
<ARITHMETIC RELATIONAL) ::= <RELATIONAL OPERATOR) / IS 
<REFERENCE RELATION) ::= <REFERENCE EXPRESSION) 

<REFERENCE RELATIONAL) <REFERENCE EXPRESSION) 
<REFERENCE RELATIONAL) ::= = /?: 
<STRING RELATION) ::= <POINTER EXPRESSION) <RELATIONAL OPERATOR) 

<POINTER EXPRESSION) FOR <ARITHMETIC EXPRESSION) 
<POINTER RELATION) ::= <POINTER EXPRESSION) <REFERENCE RELATIONAL) 

<POINTER EXPRESSION) 
<TABLE MEMBERSHIP) ::= <ARITHMETIC EXPRESSION) IN <TABLE POINTER) / 

<POINTER EXPRESSION) IN <TABLE POINTER) 
<TABLE POINTER) ::= ALPHA / ALPHAS / ALPHAS / 

<SUBSCRIPTED VARIABLE) 

SEMANTICS: 



1. A BOOLEAN EXPRESSION OBTAINS A LOGICAL VALUE. 

E. A VARIABLE, VALUE DESIGNATOR, OR FUNCTION DESIGNATOR USED AS A 
"BOOLEAN" PRIMARY MUST BE OF TYPE "BOOLEAN". 

3. THE SEQUENCE IN WHICH OPERATIONS ARE PERFORMED IS DETERMINED 
BY THE PRECEDENCE OF THE OPERATORS. 

H. THE ORDER OF PRECEDENCE OF OPERATORS IS AS FOLLOWS: 

FIRST: ARITHMETIC EXPRESSIONS 
SECOND: RELATIONS 
THIRD: NOT 
FOURTH: AND 
FIFTH: OR 
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SIXTH: IMP 
SEVENTH: EQV 

WHEN OPERATIONS ARE OF THE SAME ORDER OF PRECEDENCE, THE 
EXPRESSION IS EVALUATED FROM LEFT TO RIGHT. 

5. THE LOGICAL OPERATORS ARE DEFINED BY THE FOLLOWING TRUTH 
TABLE: 



OPERAND 


A 


OPERAND 


B 


NOT A 


A AND 


B 


A OR B 


A I MP 


B 


A EQV B 


TRUE 




TRUE 




FALSE 


TRUE 




TRUE 


TRUE 




TRUE 


TRUE 




FALSE 




FALSE 


FALSE 




TRUE 


FALSE 




FALSE 


FALSE 




TRUE 




TRUE 


FALSE 




TRUE 


TRUE 




FALSE 


FALSE 




FALSE 




TRUE 


FALSE 




FALSE 


TRUE 




TRUE 



THE ABOVE DEFINED BOOLEAN OPERATIONS ARE PERFORMED ON ALL HB BITS 
OF THE OPERAND OR OPERANDS INVOLVED. FOR EXAMPLE, REAL (NOT TRUE) 
IS NOT EQUIVALENT TO REAL (FALSE) BECAUSE "NOT" COMPLEMENTS ALL 48 
BITS OF THE OPERAND IN THE TOP OF THE STACK, WHEREAS "FALSE" ONLY 
IMPLIES THAT BIT ZERO OF THAT OPERAND IS OFF. 

6. RELATIONS DEFINE THE MANNER IN WHICH THE VARIOUS RELATIONAL 
OPERATORS ARE USED WITH THE VARIOUS EXPRESSION TYPES. 

7. THE "IS" OPERATOR COMPARES ALL THE BITS (INCLUDING TAG BITS) 
OF TWO B6700/B7700 WORDS. IF ALL BITS ARE EQUAL, THE RESULT 
OF THE COMPARISON IS TRUE. WHEN USED WITH ARITHMETIC OPERANDS 
THE "IS" RELATIONAL OPERATOR DIFFERS FROM "=" IN THAT IT 
COMPARES BIT PATTERNS FOR EQUALITY, AND DOES NO NORMALIZATION. 

8. THE <TABLE MEMBERSHIP> CONSTRUCT ALLOWS THE PROGRAMMER TO TEST 
WHETHER A GIVEN CHARACTER IS A MEMBER OF A PREDEFINED TABLE 
REFERENCED BY THE <TABLE POINTER>. THE CHARACTER IN QUESTION 
MAY BE EITHER A <STRING CHARACTER> OR A CHARACTER IN AN <ARRAY 
ROW> REFERENCED BY A <POINTER EXPRESSION>. THE <TABLE 
MEMBERSHIP) TEST REFERENCES A BIT IN MEMORY IN THE FOLLOWING 
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WAY: THE BINARY REPRESENTATION OF THE CHARACTER BEING TESTED 
IS SPLIT INTO TWO PARTS. THE LOW-ORDER 5 BITS BECOME A BIT 
INDEX, AND THE REMAINING HIGH-ORDER BITS BECOME A WORD INDEX. 
THE WORD INDEX IS ADDED TO THE <SUBSCRIPT> IN THE <TABLE 
POINTER>. THIS INDEXING OPERATION THUS SELECTS A WORD FROM 
THE TABLE. THE BIT INDEX IS THEN SUBTRACTED FROM 31 AND THE 
RESULT IS USED TO REFERENCE ONE OF THE LOW-ORDER 32 BITS IN 
THE SELECTED WORD. FINALLY, THE CHARACTER IS IN THE TABLE IF 
AND ONLY IF THIS REFERENCED BIT IS ON. 

THE <TABLE POINTER> CONSTRUCT ALLOWS SEVERAL TABLES TO BE 
CONTAINED IN ONE <ARRAY ROW>. THE <SUBSCRIPTED VARIABLE> 
ALWAYS INDICATES THE BEGINNING OF THE DESIRED TABLE. ALPHA. 
ALPHA6, AND ALPHAS MAY BE THOUGHT OF AS RESERVED <SUBSCRIPTED 
VARIABLE>S. ALPHAS IS A <TABLE POINTER) FOR EBCDIC LETTERS 
AND DIGITS; ALPHAS FUNCTIONS SIMILARLY FOR BCL LETTERS AND 
DIGITS. 



EXAMPLES 



BOOLEAN EXPRESSIONS: 

BOOLE - A EQV BI J, 1 I 

A OR B 

IF K>1 THEN S>W ELSE L-iC 

MC I 3 

SIMPLE BOOLEAN EXPRESSION: 

UGO EQV IGO 

NOT SO 

WEGO OR HEGO EQV IGO EQV UGO 



IMPLICATIONS 
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ITISRAINING IMP GROUNDISWET 
BOOVAR AND THIS IMP T0M0R[1,B] 
THIS IMP THAT IMP THOSE 
NOT SO 



BOOLEAN TERMS 



(B>C) OR (D>E) 

BOOV AND BOON OR BOOK 

All, 2] AND BVAR OR (NOT THT ) OR VEST 

NOT SO 

BOOLEAN FACTORS: 

BOOV AND BOON 

NOT (J>2) AND TRUE 

A[J+l,Z-3] AND VARB AND NEXTM 

NOT SO 

BOOLEAN SECONDARIES: 



TRUE 
NOT SO 

BOOLEAN PRIMARIES: 

FALSE 

X>V 

(NOT SO) 

BOOVAR. F2 

TRUE & CONGLOM(TRUE. FALSE. Z+010. TRUE) 

BOOLEAN FIELD DESIGNATORS: 
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BAHK. LEFTMOST 
FRNT. FORTYON 

BOOLEAN FIELD OPERANDS^ 

(IF K>1 THEN V<2 ELSE (V2-DYNAM)) 

BOOLVARB 

BOOFUNC(Q>V) 

CASE ZYGLOT OF (TRUE, NOT SO, ETCETERA<Q) 

BOOLEAN(FLAGWORD) 
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9.5. CASE EXPRESSIONS 



SYNTAX 



<CASE EXPRESSION) : : = <CASE HEAD> (<EXPRESSION LIST>) 
<EXPRESSION LIST> ::= <ARITHMETIC EXPRESSION LIST) / 

<BOOLEAN EXPRESSION LIST> / <DES I GNATI ONAL EXPRESSION LIST> / 

<POINTER EXPRESSION LIST> 

SEMANTICS: 



CASE EXPRESSIONS PROVIDE A CONVENIENT MEANS OF SELECTING ONE OF 
MANY ALTERNATIVE EXRESSIONS OF THE SAME KIND TO BE EVALUATED AT A 
PARTICULAR POINT DURING EXECUTION. THE <EXPRESSION> TO BE 
EVALUATED IS SELECTED AS FOLLOWS: THE <ARITHMETIC EXPRESSION) IN 

T urr r-AOcr i_iC"Ari\ TC^ tr\/Aii!ATc-r\ Akir* TMT!r<^!rf^T-7r-r» n \/ r^r\i it^in, i Ktr^ i r- T-rr^ 

VALUE IS NOT INTEGRAL. THIS VALUE IS THEN USED AS AN INDEX INTO 
THE <EXPRESSION LIST). THE COMPONENT EXPRESSIONS OF THE 
<EXPRESSION LIST) ARE INDEXED SEQUENTIALLY FROM THROUGH N-1, 
WHERE N IS THE NUMBER OF EXPRESSIONS IN THE LIST. THE INDEXED 
<EXPRESSION) IS THEN EVALUATED AND ITS VALUE IS THE VALUE OF THE 
<CASE EXPRESSION). IF THE VALUE OF THE INDEX LIES OUTSIDE THE 
RANGE TO N-1, ANYTHING CAN HAPPEN. THE ESPOL COMPILER DOES NOT 
EMIT "RANGE CHECKING CODE" WHICH VALIDATES THE EVALUATED 
<ARITHMETIC EXPRESSION). 



q _ 1 Q 
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9.6. CONDITIONAL EXPRESSIONS 

SYNTAX: 

<CONDITIONAL EXPRESSION) ::= <CONDITIONAL ARITHMETIC EXPRESSION) / 
<CONDITIONAL BOOLEAN EXPRESSION) / 
<CONDITIONAL DES I GNAT I ONAL EXPRESSION) / 
<CONDITIONAL POINTER EXPRESSION) 

SEMANTICS: 



EXPRESSIONS OF THE FORM "<IF CLAUSE) <EXPRESSION) ELSE 
<EXPRESSION)" ARE CALLED CONDITIONAL EXPRESSIONS. DEPENDING UPON 
EITHER THE VALUE OF THE <BOOLEAN EXPRESSION) IN THE <IF CLAUSE) OR. 
IF ONE OR BOTH OF THE ALTERNATIVE EXPRESSIONS ARE THEMSELVES 
CONDITIONAL, THE VALUES OF THE BOOLEAN EXPRESSIONS IN SEVERAL IF 
CLAUSES, AN <EXPRESSION) IS SELECTED FOR EVALUATION. ALL THE 
ALTERNATIVE EXPRESSIONS MUST BE OF THE SAME TYPE. 

THE SELECTION PROCESS PROCEEDS AS FOLLOWS: FIRST, THE <BOOLEAN 
EXPRESSION) FOLLOWING THE FIRST "IF" IS EVALUATED; IF THE RESULTING 
VALUE IS TRUE, THE <EXPRESSION) FOLLOWING THE "THEN" IS EVALUATED 
AND THE <EXPRESSION> FOLLOWING "ELSE" IGNORED, OTHERWISE THE 
<EXPRESSION) FOLLOWING THE "ELSE" IS EVALUATED. IF EITHER OF THE 
ALTERNATIVE EXPRESSIONS IS CONDITIONAL, THE PROCESS IS REPEATED 
UNTIL AN UNCONDITIONAL <EXPRESSION) IS SELECTED FOR EVALUATION. 
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9.7. DESIGNATIONAL EXPRESSIONS 



SYNTAX 



<DESIGNATIONAL EXPRESSION) ::= <LABEL DESIGNATOR) / 

<CASE HEAD) ( <DES I GNAT I ONAL EXPRESSION LIST)) / 

<CONDITIONAL DESIGNATIONAL EXPRESSION) 
<CONDITIONAL DESIGNATIONAL EXPRESSION) ::= 

<IF CLAUSE) <DESIGNATIONAL EXPRESSION) ELSE 

<DESIGNATIONAL EXPRESSION) 
<DESIGNATIONAL EXPRESSION LIST) ::= < DES I GNAT I ONAL EXPRESSION) / 

<DESIGNATIONAL EXPRESSION LIST), 

<DESIGNATIONAL EXPRESSION) 
<LABEL DESIGNATOR) ::= <LABEL IDENTIFIER) 

SEMANTICS: 



A DESIGNATIONAL EXPRESSION SPECIFIES A LABEL 
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9.8. POINTER EXPRESSIONS 



SYNTAX: 



<POINTER EXPRESSION> ::= <CONDITIONAL POINTER EXPRESSION> / 

<SIMPLE POINTER EXPRESSION> 
<CONDITI0NAL POINTER EXPRESSION) ::= 

<IF CLAUSE> <POINTER EXPRESSION) ELSE <POINTER EXPRESSION) 
<SIMPLE POINTER EXPRESSION) ::= <POINTER PRIMARY) <5KIP> / 

<POINTER ASSIGNMENT) / <WORD ARRAY RON) / 

<SUBSCRIPTED WORD VARIABLE) 
<POINTER PRIMARY) ::= <POINTER IDENTIFIER) / (<POINTER EXPRESSION)) 

/ <CASE HEAD) ( <POINTER EXPRESSION LIST) ) / 

<POINTER DESIGNATOR) 
<SKIP) ::= <EMPTY) / <ADDING OPERATOR) <PRIMARY) 



= <IDENTIFIER) 

= POINTER ( <POINTER PARAMETERS) ) 

= <ARRAY PART) / <ARRAY PART), 



<POINTER IDENTIFIER) 
<POINTER DESIGNATOR) 
<POINTER PARAMETERS) 

<CHARACTER SIZE) 
^CHARACTER SIZE) ::=H/6/8/* 
<ARRAY PART) ::= <ARRAY ROW) / <SUBSCRIPTED VARIABLE) / 

<ARRAY IDENTIFIER) 
<SUBSCRIPTED WORD VARIABLE) ::= <SUBSCRIPTED VARIABLE) 
<ARRAY ROW) ::= <ARRAY IDENTIFIER) I <ROW DESIGNATOR) ] 
<ROW DESIGNATOR) ::= * / <ROW), * 
<WORD ARRAY ROW) ::= <ARRAY ROW) 

<ROW) ::= <ARITHMETIC EXPRESSION) / <ROW), <ARITHMETIC EXPRESSION) 
<POINTER EXPRESSION LIST) ::= <POINTER EXPRESSION) / 

<POINTER EXPRESSION LIST) , <POINTER EXPRESSION) 
<POINTER ASSIGNMENT) ::= <POINTER VARIABLE) 

<REPLACEMENT OPERATOR) <POINTER EXPRESSION) 
<POINTER VARIABLE) ::= <VARIABLE) 



StMAN I ICS 
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1. A POINTER EXPRESSION ADDRESSES A CHARACTER POSITION WITHIN AN 
ARRAY ROW. 

2. AN IDENTIFIER USED AS A POINTER PRIMARY MUST BE OF TYPE 
POINTER. 

^- IF" A POINTER EXPRESSION IS ENCLOSED IN PARENTHESES, IT IS 
EVALUATED FIRST AND ITS VALUE IS USED AS A PRIMARY. 



'^- ^^ SKIP IS NOT EMPTY, THE POINTER VALUE IS ADJUSTED BY "L" 
CHARACTERS TO THE RIGHT OR LEFT, WHERE "L" IS THE ABSOLUTE 
VALUE OF THE ARITHMETIC EXPRESSION. IF THE ADDING OPERATOR IS 
+, SKIPPING IS TO THE RIGHT. IF THE OPERATOR IS -, SKIPPING 
IS TO THE LEFT. 

5. A POINTER DESIGNATOR MAY BE USED TO CREATE A POINTER VALUE 
WHICH REFERENCES A SPECIFIC CHARACTER POSITION IN AN ARRAY. 
THE POINTER DESIGNATOR HAS THREE FORMS: 

POINTERCA, L) YIELDS A POINTER VALUE "POINTING" TO A. A 
IS AN ARRAY IDENTIFIER WHICH MAY EITHER BE 
SUBSCRIPTED OR UNSUBSCR I PTED . L IS A 
CHARACTER LENGTH IN BITS (FOUR, SIX, OR 
EIGHT, OR ANOTHER POINTER, IN WHICH CASE 
THE SIZE OF THAT POINTER IS USED. 

POINTER(A) YIELDS A POINTER WITH A CHARACTER SIZE 
FIELD SET TO ZERO. EBCDIC OR BCL DEFAULT 
CHARACTER SIZE WILL BE DETERMINED BY THE 
HARDWARE, BASED ON HOW THE POINTER IS USED. 

POINTERCA,*) SAME AS POINTER(A). 

POINTER THIS FORM PUTS THE SIZE FIELD OF 
^P1.P2) POINTER P2 INTO POINTER PI. 
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B. A POINTER MAY BE INITIALIZED EITHER BY A POINTER ASSIGNMENT OR 
BY APPEARING AS AN UPDATE POINTER IN A SCAN OR REPLACE 
STATEMENT OR A STRING COMPARISON. 
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9.9. REFERENCE EXPRESSIONS 



SYNTAX : 



<REFERENCE EXPRESSION> ::= NULL / (REFERENCE ASSIGNMENT> / 
<IF CLAUSE> (REFERENCE EXPRESSION> ELSE 
(REFERENCE EXPRESSION> / (REFERENCE VARIABLE> / 
(ENTRY EXPRESSION> / (QUEUE DESIGNATOR) / 
REFERENCE C(VARIABLE>) / (FUNCTION DESIGNATOR) / 
(WORD EXPRESSION) / ((REFERENCE EXPRESSION)) / 
(REFERENCE ITEM) / (CASE HEAD) ((REFERENCE EXPRESSION LIST)) 

(ENTRY EXPRESSION) ::= (QUEUE NAME) ((ACTUAL ITEM LIST)) 

(QUEUE NAME) ::= (QUEUE IDENTIFIER) / (QUEUE ARRAY IDENTIFIER) 

(ACTUAL ITEM LIST) ::= (ACTUAL PARAMETER LIST) 

(REFERENCE ASSIGNMENT) ::= (REFERENCE VARIABLE) 

(REPLACEMENT OPERATOR) (REFERENCE EXPRESSION) 

(QUEUE DESIGNATOR) ::= (QUEUE IDENTIFIER) / 

(QUEUE ARRAY IDENTIFIER) [(ARITHMETIC EXPRESSION)] 

(REFERENCE VARIABLE) ::= (VARIABLE) 

(REFERENCE ITEM) ::= (ITEM) 

(REFERENCE EXPRESSION LIST) ::= (REFERENCE EXPRESSION) / 
(REFERENCE EXPRESSION LIST), (REFERENCE EXPRESSION) 

SEMANTICS: 



1. A (REFERENCE EXPRESSION) POINTS TO A CONSTRUCT OR LOCATION. A 
"NULL" REFERENCE EXPRESSION POINTS AT NOTHING AND TO NOWHERE. 

2. A (QUEUE DESIGNATOR) POINTS TO THE ENTRY AT THE HEAD OF THE 
DESIGNATED QUEUE. 

3. AN (ENTRY EXPRESSION) CAUSES THE CREATION OF AN ENTITY HAVING 
THE FORMAT OF AN ENTRY IN THE NAMED QUEUE OR QUEUE ARRAY. A 
POINTER TO THIS POTENTIAL ENTRY IS RETURNED AS A (REFERENCE 
EXPRESSION) . 
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THE "REFERENCE" TRANSFER FUNCTION GENERATES A <REFERENCE 
EXPRESSION> POINTING TO A VARIABLE. 



EXAMPLES: 



REFERENCE EXPRESSIONS: 

IF A > B THEN NEXTONE - LASTONE ELSE NULL 

NULL 

NEXTONE -LASTONE 

NEXTONE 

QUEUP CLOCAT .SIZEX) 

ARY[2,3] 

REFERENCE (BOOVARB) 

REFFUNCC ARAY[E,7] ) 

CASE Q[ V-7 + ATTINUM] ] OF (FIRSTONE, NEXTONE, LASTONE) 

IF ARRAYROW IS NULL THEN 

ENTRY EXPRESSION: 

QUNM (HERE, THERE, EVY ) 



QUEUE DESIGNATORS 



QUNM 
DYNAML3] 
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9.10. NORD EXPRESSIONS 



SYNTAX : 



<WORD EXPRESSION> ::= <WORD ASSIGNMENT) / <WORD VARIABLE) / 
<WORD 1TEM> / <IF CLAUSE) <WORD EXPRESSION) ELSE 
<WORD EXPRESSION) / WORD (<MOST EXPRESSIONS)) / 
<FUNCTION DESIGNATOR) / <CASE HEAD) 
(<WORD EXPRESSION LIST)) / (<WORD EXPRESSION)) 

<WORD VARIABLE) ::= <VARIABLE) 

<MOST EXPRESSIONS) ::= <ARITHMETIC EXPRESSION) / 

<BOOLEAN EXPRESSION) / <REFERENCE EXPRESSION) / 
<ARRAY EXPRESSION) 

<WORD EXPRESSION LIST):;= <WORD EXPRESSION) / 

<WORD EXPRESSION LIST), <WORD EXPRESSION) 

<WORD ASSIGNMENT) : := 

<WORD VARIABLE) <REPLACEMENT OPERATOR) <EXPRESSION) 

SEMANT ICS : 



1. A WORD EXPRESSION OBTAINS A WORD VALUE. 

2. A WORD VALUE IS REGARDED AS A H8-BIT FIELD WITH NO TYPE 
SIGNIFICANCE. 

3. A WORD TRANSFER FUNCTION BEHAVES IN MUCH THE SAME MANNER AS 
THE REAL AND BOOLEAN TRANSFER FUNCTIONS; I.E., IT SUPPRESSES 
J \ II I n./\ t^Mcurs i iNu k>inii^n wuui-u uincKwisc at. lNvu^t.u. 

PRAGMATICS: 



A WORD VARIABLE IS ACCESSED VIA AN LOOT . HOWEVER NO SUCH 
ACTION MUST BE EXPECTED FOR THE EXPRESSION ASSOCIATED WITH THE 
WORD TRANSFER FUNCTION; THE CODE APPLICABLE TO THE EXPRESSION 
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WILL BE COMPILED 



2. THERE IS NO GUARANTEE THAT A CORRECTLY COMPILED WORD 
EXPRESSION WILL PRODUCE VALID B6700/B7700 CODE. 
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APPENDIX A. COMPILER ERROR MESSAGES 

THE LEFTMOST DIGIT OF THE ERROR NUMBERS IS USUALLY THE NUMBER OF 
THE SECTION OF THE COMPILER IN WHICH THE ERROR WAS DETECTED. 



ERR ESPOL 

NO. PROCEDURE 

100 TABLE 

101 STATEMENT 

102 PRIMARY 

103 BOOPRIM 
110 PASSFILE 
199 

300 SCAN 

301 TABLE 

302 HOOK 

303 TABLE 

304 UNHOOK 

305 ASSOCIATE 

306 ASSOCIATE 

307 GOBBLE 

308 GOBBLE 

309 SCAN 

310 DOLLARCARD 

311 DOLLARCARD 

312 DOLLARCARD 

313 DOLLARCARD 
31'+ READACARD 

315 FINDUSER 

316 DOLLARCARD 

325 STARTINCLUDING 

326 STARTINCLUDE 

327 STARTINCLUDING 

328 STARTINCLUDE 



ERROR MESSAGE 

UNKNOWN IDENTIFIER 

SCANNER ERROR 

SCANNER ERROR 

SCANNER ERROR 

ILLEGAL FILE DESIGNATOR 

PROCEDURE HAS NOT YET BEEN CODED 

IDENTIFIER OR NUMBER OF >63 CHARACTERS 

ILLEGAL CONSTRUCT 

TOO MUCH NESTING OF DEFINES 

NUMBER IS TOO LARGE 

EXTRANEOUS CROSSHATCH 

MISSING "(" OR "[" 

MISSING ")" OR "]" OR TOO MANY PARAMETERS 

INVALID STRING CHARACTER 

INVALID STRING CODE OR ILLEGAL STRING SYNTA 

MISSING IN STRING 

UNKNOWN DOLLAR CARD OPTION 

INVALID IDENTIFIER 

"BUMP TO" DOLLAR OPTION NOT FOLLOWED BY NUM 

>7 DIGITS IN ARGUMENT TO "BUMP" DOLLAR OPT 

SEQUENCE ERROR. 

USER OPTION MUST BE REFERENCED PREVIOUSLY 

INVALID GO ON A DOLLAR CARD 

INCLUDES TOO DEEPLY NESTED. 

MISSING ENDING SEQUENCE NUMBER ON INCLUDE C 

MISSING INCLUDE-FILE OPTION. 

INVALID INCLUDE-OPTION--IGNORED 
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ERR ESPOL 

NO. PROCEDURE 

3H0 LOADINFO 

350 ATTRIBMNEREF 

400 EMITTERS 

HOI EMITV OR EMITN 

HOE SUBSCRIBER 

HG3 DOTTER 

HOH DOTIT 

H05 PURGE 

HOB PURGE 

HOT GETSPACE 

H08 GETSPACE 

HIO GETSPACE 

H15 GETSTACK 

H20 PURGE 

501 IFCLAUSE 

50E CASEHEAD 

503 CASEHEAD 

50H IFEXP 

505 EXPRESSION 

506 CASEXP 

507 CASEXP 

508 RELATION 

509 RELATION 

510 RELATION 

511 RELATION 

512 BEXP 

513 AEXP 

51H SIMPARITH 

515 TERM 

516 BOOSEC 

517 BOOCOMP 
51S REXP 



ERROR MESSAGE 

LOADINFO MUST PRECEDE GLOBALS 

MNEMONIC FOR ATTRIBUTE VALUE EXPECTED 

TOO MUCH CODE IN THIS SEGMENT 

DISPLACEMENT TOO BIG 

MISSING BRACKET OR SUBSCRIPT 

EXPRESSION NOT ARITHMETIC 

"."PERIOD NOT FOLLOWED BY FIELD IDENTIFIER 

LABEL DECLARED FORWARD NOT SEEN 

PROCEDURE DECLARED FORWARD NOT SEEN 

ILLEGAL ADDRESS-PART VALUE 

ILLEGAL ADDRESS-PART SYNTAX 

TOO MANY STACK CELLS AT THIS LEVEL 

TOO MANY TEMPORARIES IN USE AT ONE TIME 

COMPILER ERROR INVOLVING BAD GO TO LABEL 

MISSING "THEN" 

EXPRESSION NOT ARITHMETIC 

MISSING "OF" 

MISSING "ELSE" 

EXPRESSION IS NOT OF REQUIRED TYPE 

MISSING " ( " 

MISSING ")" 

THIS EXPRESSION MAY NOT APPEAR IN A RELATIO 

THIS RELATION MAY USE ONLY " = " OF "it" 

MISSING "FOR" IN STRING RELATION 

ILLEGAL EXPRESSION TYPE 

EXPRESSION NOT BOOLEAN TYPE 

IF EXPRESSION NOT ARITHMETIC TYPE 

ARRAY EXPRESSION MAY NOT BE SIGNED 

ARRAY AND WORD EXPRESSIONS MAY NOT BE 

OPERATED UPON 

CANNOT NEGATE AN EXPR UNLESS ITS BOOLEAN 

EXPRESSION NOT BOOLEAN 

VARIABLE NOT REFERENCE TYPE 
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ERR ESPOL 

NO. PROCEDURE 

519 REXP 

5aO REXP 



521 
522 
523 
524 
525 
526 
527 
528 
529 



REXP 
REXP 
REXP 
REXP 
REXP 
REXP 
REXP 
REXP 
VARIABLE 



530 VARIABLE 

531 VARIABLE 

532 VARIABLE 

533 LAYITOUT 

534 LAYITOUT 

535 LAYITOUT 

537 ENTRYEXP 

538 VARIABLE 

539 VARIABLE 

540 PEXP 

541 PTRCOMP 

542 ITEMREFERENCE 

543 ENTRYEXPR 

544 LAYITOUT 

545 VARIABLE 

546 SETVARIABLE 



ERROR MESSAGE 

NOT ENOUGH SUBSCRIPTS ON REFERENCE ARRAY 

REF EXPR CANNOT START WITH IDENTIFIER 

OF THIS TYPE 

EXPRESSION NOT OF TYPE REFERENCE 

MISSING ")" 

CASE EXPR NOT OF TYPE REFERENCE 

IF EXPRESSION NOT OF TYPE REFERENCE 

REF EXPR CANT START WITH THIS QUANTITY 

MISSING "(" 

CANNOT TRANSFER THIS TO TYPE REFERENCE 

NOT ENOUGH SUBSCRIPTS 

REGISTER ASSIGNMENT MUST BE 

LEFT-MOST ASSIGNMENT 

LEFT BRACKET DOES NOT FOLLOW 

ARRAY IDENTIFIER 

FIELD DESIGNATOR IS NOT LEFT-MOST 

IN LEFT-PART LIST 

A PROCEDURE IDENTIFIER IS USED 

OUTSIDE OF ITS SCOPE 

"8." NOT FOLLOWED BY LAYOUT 

MISSING " ( " 

MISSING ")" 

NOT YET CODED 

A VARIABLE IS NOT FOLLOWED BY A REPLACEMENT 

OPERATOR 

A READ ONLY ARRAY MAY NOT BE STORED INTO 

EXPRESSION NOT POINTER TYPE 

SKIP PART NOT INTEGER OR REAL EXPRESSION 

INCORRECT SYNTAX FOR AN ITEM REFERENCE 

INCORRECT SYNTAX FOR ENTRY EXPRESSION 

EXPRESSION NOT OF REQUIRED TYPE 

POINTER IDENTIFIER MAY NOT BE SUBSCRIPTED 

CANNOT MIX SETS OF VARYING SIZES 
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ERR 


ESPOL 


NO. 


PROCEDURE 


547 


SETVARIABLE 


548 


VARIABLE 


549 


ARRAYROW 


550 


ARRAYROW 


551 


LONGSTRING 


552 


STRINGSOURCE 


553 


ARITHCOMP 


554 


TERM SIMPARITH 



555 PARTIALFIELD OR 
CONCATENATE 

556 PARTIALFIELD OR 
CONCATENATE 

557 PARTIALFIELD OR 
CONCATENATE 

558 PARTIALFIELD OR 
CONCATENATE 

559 PARTIALFIELD OR 
CONCATENATE 

560 PARTIALFIELD OR 
CONCATENATE 

561 PARTIALFIELD OR 
CONCATENATE 

567 VARIABLE 

573 REPLACESTMT 

574 SUBSCRIBER 

575 VARIABLE 

576 BITFIDDLE 

577 BITFIDDLE 
578 



ERROR MESSAGE 

IN SAME EXP 

MISSING REPLACEMENT OPERATOR 

REGISTERS MAY NOT BE PARTIAL FIELDED 

MISSING LEFT BRACKET 

ARRAY ROW MUST HAVE 1 ASTERISK 

TOO MANY STRING CHARACTERS OR MISSING QUOTE 

STRING MUST BE 4-, 6-, OR 8-BIT CHARACTERS 

DOUBLE EXPRESSION MAY NOT BE DOTTED 

WORD EXPRESSIONS CONSIST OF 

WORD PRIMARY ONLY 

ILLEGAL BIT DESIGNATION EXPRESSN TYPE 

INVALID LEFT BIT VALUE SPECIFIED 

MISSING COLON 

INVALID NUMBER OF BITS SPECIFIED 

NUMBER OF BITS SPECIFIED IS TOO LARGE 
FOR SPECIFIED LEFT BIT VALUE 

MISSING LEFT BRACKET 

MISSING RIGHT BRACKET 

EVENTS MAY NOT BE PARTIAL FIELDS 

MISSING COMMA OR SEMICOLON 

ACTUAL SUBSCRIPT(S) MUST PRECEDE ROW 

DESIGNATOR(S) 

FIELDS MAY NOT BE DUPLICATED AND LOADED 

MISSING "(" 

MISSING "." 

BAD BIT NUMBER. 
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ERR ESPOL 

NO. PROCEDURE 

579 BITFIDDLE 

580 VARIABLE 

581 VARIABLE 



562 
600 
601 
602 
603 
604 



VARIABLE 

CASESTMT 

CASESTMT 

CASESTMT 

PROCALL 

PROCALL 



605 ACTUAL PARAPART 

607 ACTUAL PARAPART 

608 FORSTMT 

609 FORSTMT 

610 FORSTMT 

611 FORSTMT 

612 LABELR 

613 LABELR 

614 LABELR 

615 GOSTMT 

616 GOSTMT 

617 GOSTMT 

618 GOSTMT 

619 GOSTMT 

620 ACTUAL PARAPART 

621 ACTUAL PARAPART 

622 ACTUALPARAPART 

623 ACTUAL PARAPART 



ERROR MESSAGE 

MISSING ")" 

IDENTIFIER EXPECTED 

PARTIAL FIELD FOR COMPILETIME VARIABLE 

MUST BE A CONSTANT 

COMPILETIME VARIABLE MUST BE CONSTANT 

MISSING SEMICOLON 

MISSING "BEGIN" 

TOO MANY STATEMENTS 

ILLEGAL USE OF PROCEDURE IDENTIFIER 

EITHER ACTUAL OR FORMAL PARAMETERS DO NOT 

AGREE AS TO NUMBER, OR EXTRA ")" 

ACTUAL AND FORMAL ARRAYS DO NOT HAVE 

SAME NUMBER OF DIMENSIONS 

NO ACTUAL PARAMETERS MAY START WITH 

A QUANTITY OF THIS TYPE 

IMPROPER FOR INDEX VARIABLE 

MISSING UNTIL OR WHILE IN STEP ELEMENT 

MISSING DO IN FOR CLAUSE 

MISSING LEFT ARROW FOLLOWING INDEX VARIABLE 

MISSING COLON 

THE LABEL WAS NOT DECLARED IN THIS BLOCK 

THE LABEL HAS ALREADY OCCURRED 

LABEL OR CASE DOES NOT FOLLOW GO TO 

IMPROPER GO TO WITH CASE 

MISSING "(" 

ONLY A LABEL MAY APPEAR IN THE LIST 

MISSING ")" 

ACTUAL PARAMETER IS INTRINSIC PROCEDURE 

(NOT ERROR) 

TEMPORARY ABSENCE OF CODE FOR THIS 

(NOT ERROR) 

TYPE OF ACTUAL AND FORMAL PARAMS DONT AGREE 

ILLEGAL PARAMETER DELIMITER 
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ERR ESPOL 

NO. PROCEDURE 

62H COMPOUNDTAIL 

625 COMPOUNDTAIL 

626 COMPOUNDTAIL 

627 QUEUEDEC 

628 QALGORITHM 

629 QALGORITHM 

630 QALGORITHM 

631 FORSTMT 

632 FORSTMT 

633 QALGORITHM 

634 QALGORITHM 

635 QALGORITHM 

636 REPLACESTMT 

637 REPLACESTMT 

638 REPLACESTMT 

639 REPLACESTMT 

640 REPLACESTMT 

541 REPLACESTMT 

642 REPLACESTMT 

643 SCANSTMT 

644 SCANSTMT 

645 SCANSTMT 

646 SCANSTMT 

647 SCANSTMT 

648 QALGORITHM 

649 QALGORITHM 

650 SCANSTMT 



ERROR MESSAGE 

MISSING SEMICOLON OR END 

EXTRA END 

MISSING END 

INTERRUPTEDEC TRYING TO GO BEYOND LEVEL 31 

THIS ALGORITHM IS NOT VALID FOR THIS QUEUE 

MISSING ACTUAL PARAMETER PART 

IN EXPLICIT CALL 

FIRST ACTUAL PARAMETER OF 

QALGORITHM IS ILLEGAL 

ILLEGAL FOR CLAUSE 

ILLEGAL EXPRESSION TYPE 

TOO MANY ACTUAL PARAMETERS 

ILLEGAL PARAMETER DELIMITER 

TOO MANY ACTUAL PARAMETERS 

POINTER IDENTIFIER REQUIRED 

MISSING KEY WORD "BY" 

UPDATE SOURCE MUST BE POINTER OR 

SIMPLE VARIABLE 

POINTER SOURCE MUST BE UPDATED BY A 

POINTER OR WORD 

SOURCE MUST BE POINTER OR 

ARITHMETIC EXPRESSION 

CONDITION OR COUNT NEEDED 

UPDATED COUNT MUST BE FOLLOWED 

BY A CONDITION 

POINTER IDENTIFIER REQUIRED 

SIMPLE ARITHMETIC VARIABLE REQUIRED 

CONDITION MISSING 

RELATIONAL OPERATOR OR IN EXPECTED 

STATEMENT TERMINATOR REQUIRED 

BUSY AND SIZE MUST BE USED AS PRIMARIES 

INCORRECT USAGE OF UNTYPED QUEUE ALGORITHM 

IN EXPECTED 



B6700/B7700 ESPOL 



A- 7 



ERR ESPOL 

NO. PROCEDURE 

651 REPLACESTMT 

652 REPLACESTMT 

653 REPLACESTMT 

654 REPLACESTMT 

655 REPLACESTMT 

656 FILLSTMT 

657 FILLSTMT 

658 FILLSTMT 

659 FILLSTMT 

660 FILLSTMT 

661 SWAPSTMT 

662 SWAPSTMT 

663 SWAPSTMT 

664 SWAPSTMT 

665 SWAPSTMT 

666 THRUSTMT 

667 FORSTMT 

668 FORSTMT 

669 QALGORITHM 

670 EVENTINTRINSIC 

671 EVENTINTRINSIC 

672 EVENTINTRINSIC 

673 CLOSESTMT 

674 FORMATANDLIST 

675 READWRITESTMT 

676 READWRITESTMT 

677 READWR-SPACE 

678 READWRITESTMT 

679 READWRITESTMT 

680 EVENTINTRINSIC 

681 BLOCK 



ERROR MESSAGE 

TOO MANY (OR WRONG ORDER OF) ELEMENTS : SOURC 

OR ELEMENTS IN WRONG ORDER 

UPDATE COUNT MUST BE REAL OR INTEGER 

THIS CONSTRUCT REQUIRES AN ARITHMETIC SOURC 

RELATIONAL OP OR IN EXPECTED 

PICTURE IDENTIFIER REQUIRED 

TOO MANY WORDS OF INITIAL VALUES 

INITIAL VALUE MUST BE NUMBER OR STRING 

MISSING RIGHT PARENTHESIS 

ARRAY ROW REQUIRED 

MISSING "WITH" 

MISSING LEFT PARENTHESIS 

ARRAYID OR SUBARRAY DESIGNATOR REQUIRED 

MISSING COMMA 

MISSING RIGHT PARENTHESIS 

NUMBER OF UNSPECIFIED SUBSCRIPTS MUST AGREE 

MISSING DO IN A THRU CLAUSE 

MISSING UNTIL FOLLOWING A BY ELEMENT 

CONTROL VARIABLE IS NOT SIMPLE IN BY 

ELEMENT LIST 

BUZZ IS UNTYPED 

THE PARAMETER MUST BE AN EVENT DESIGNATOR 

THE PARAMETER MUST BE AN INTERRUPT ID 

MISSING LEFT OR RIGHT PARENTHESIS 

UNRECOGNIZED PARAMETER 

ILLEGAL CONSTRUCT OF DIRECT READ-WRITE STMT 

EVENT LEVEL 6TR THAN DIRECT ARRAY LEVEL 

SEEK STMT MUST HAVE ADDRESS PART 

SEEK OR SPACE MUST HAVE NON-DIRECT FILE 

SEEK MAY NOT HAVE FORMAT 

DIRECT I-O CANNOT BE USED AS PRIMARY 

SECONDWORD EXPECTS EVENT OR DP PARAMETER 

LEVEL 1 BLOCK NOT ALLOWED 



B6700/B7700 ESPOL 



A- 8 



ERR ESPOL 

NO. PROCEDURE 

682 SPACESTMT 

683 EMITDBIB 
684 



685 
686 



INTRNSC 



687 ONSTMT 
690 

691 ATTCHSTMT 

692 ATTCHSTMT 
69"+ FILEPART 

700 IDLIST 

701 MERRIMAC 

702 MERRIMAC 

703 FIELDPART 
70H FIELDER 

705 LAYOUTDEC 

706 LAYOUTDEC 

707 LAYOUTDEC 

708 PUTOGETHER 

710 DEFINEDEC 

711 QUEUEDEC 

712 QUEUEDEC 

713 QUEUEDEC 

711+ QUEUEDEC 

715 QUEUEDEC 

717 ARRAY DEC 

718 READONLYARRAYDEC 

719 READONLYARRAYDEC 



ERROR MESSAGE 

SPACE MAY NOT HAVE BRACKET PART 

LABEL NOT ON HALF WORD BOUNDCUSE "::" ) 

MISSING "(" IN CALL ON TRANSFER FUNCTION, 

INTRINSIC FUNCTION, OR PROCEDURE 

MISSING COMMA AFTER PARAMETER 

MISSING ")" IN AN EXPRESSION OR A FUNCTION 

FUNCTION CALL PARAMETER LIST 

UNRECOGNIZED FAULT IDENTIFIER 

ATTACHSTMT-DETACHSTMT-INTERRUPTDEC) 

INTERRUPT IDENTIFIER REQUIRED 

MISSING "TO" 

EVENT DESIGNATOR REQUIRED 

ILLEGAL FILE PART 

THIS ID ALREADY DECLARED IN THIS BLOCK 

PARENTHESES PROBLEM 

INCORRECT TYPE OR PROCEDURE OR 

MONITORED ITEM 

INCORRECT "FIELD PART" 

INCORRECT "FIELD"-VALUE OR SYNTAX 

INCORRECT "LAYOUT PART" 

"FIELD VALUE" IS NOT UNSIGNED INTEGER 

ILLEGAL LAYOUT PART 

TOTAL ALPHA LONGER THAN 20H7 CHARACTERS 

EQUAL SIGN EXPECTED 

ILLEGAL MULTIPLE USE OF IDENTIFIER 

MISSING ENTRY DESCRIPTION 

MULTIPLE USE OF SAME ALGORITHM ID 

IN QUEUE DEC 

INCORRECT USAGE OF STANDARD QUEUE ALGORITHM 

THIS CONTRUCT NOT CODED AS YET (NOT ERROR] 

THIS CONTRUCT NOT CODED AS YET (NOT ERROR) 

ARRAY WORD MISSING 

IDENTIFIER DECLARED BEFORE 



B6700/B7700 ESPOL 



A- 9 



ERR ESPOL 

NO. PROCEDURE 

720 INITIALIZEARRAY 

721 INITIALIZEARRAY 

722 INITIALIZEARRAY 

723 INITIALIZEARRAY 

724 ARRAYDEC 

725 ARRAYDEC 

726 ARRAYDEC 

727 ARRAYDEC 

728 ARRAYDEC 

729 ARRAYDEC 

730 PROCEDUREDEC 

731 PROCEDUREDEC 

732 PROCEDUREDEC 

733 PROCEDUREDEC 

73H PROCEDUREDEC 

735 PROCEDUREDEC 

736 PROCEDUREDEC 

737 FMLPARAPART 

738 FMLPARAPART 

739 FMLPARAPART 

740 FMLPARAPART 
74 1 FMLPARAPART 

742 , FMLPARAPART 

743 FMLPARAPART 

744 FMLPARAPART 

745 FMLPARAPART 



ERROR MESSAGE 

MISSING LEFT PARENTHESIS 

NOT A NUMBER OR A LOGICAL VALUE 

TOO BIG AN INTEGER 

MISSING RIGHT PARENTHESIS 

IDENTIFIER DECLARED BEFORE 

MORE THAN ONE IDENTIFIER DECLARED PREVIOUSL 

MISSING LEFT BRACKET 

ANY OF SEVERAL SYNTAX ERRORS IN AN 

ARRAY DECLARATION 

MISSING RIGHT BRACKET 

MISSING SEMICOLON 

PROCEDURE TYPE DIFFERS FROM FORWARD 

DECLARATION 

PROCEDURE INDENTIFIER ALREADY USED IN THIS 

BLOCK 

A PARAMETER NAS NOT SPECIFIED 

NUMBER OF PARAMETERS DIFFERS 

FROM FORWARD DEC 

SPECIFICATION DIFFERS FROM 

FORWARD DECLARATION 

THIS PROCEDURE WAS ALREADY DECLARED FORWARD 

MISSING SEMICOLON OR "(" AFTER PROCEDURE 

IDENTIFIER 

ILLEGAL PARAMETER DELIMITER 

MISSING SEMICOLON AFTER FORMAL 

PARAMETER LIST 

NOT VALID PARAMETER IDENTIFIER 

MISSING SEMICOLON IN SPECIFICATION PART 

ILLEGAL BOUND SPECIFIER 

TOO MANY " : "S 

ID NOT FORMAL, OR ALREADY SPECIFIED 

MISSING "[" IN ARRAY SPECIFICATION 

ILLEGAL BOUND SPECIFIER 



B6700/B7700 ESPOL 



10 



ERR ESPOL 

NO. PROCEDURE 

me FMLPARAPART 

747 DEFINEDEC 

7H8 DEFINEDEC 

749 DEFINEDEC 

750 QUEUEDEC 

751 QUEUEDEC 

752 QUEUEDEC 

753 QUEUEDEC 

756 PICTUREDEC 

757 PICTUREDEC 

758 PICTUREDEC 

759 PICTUREDEC 

760 PICTUREDEC 

761 TRUTHSETDEC 
76a TRANSTBLDEC 

770 FILEDEC 

771 FILEDEC 

772 FILEDEC 

773 FILEDEC 

774 FILEDEC 

775 FILEDEC 

782 IDLIST 

783 IDLIST 

784 FMLPARAPART 

785 INTERRUPTDEC 

786 INTERRUPTDEC 

787 INTERRUPTDEC 

788 PROCEDUREDEC 

789 PROCEDUREDEC 

790 PROCEDUREDEC 

791 PROCEDUREDEC 



ERROR MESSAGE 

MISSING "3" IN ARRAY SPECIFICATION 

PARAMETER ERROR 

MORE THAN 9 DEFINE PARAMETERS 

MISSING ")" 

MORE THAN 32767 ITEMS 

INCORRECT SYNTAX FOR LOCKING SPECIFICATION 

MISSING RIGHT BRACKET IN SIZE SPECIFICATION 

ILLEGAL SYNTAX FOR QUEUE ARRAY BOUND 

ILLEGAL REPEAT PART VALUE 

MISSING ")" IN REPEAT PART 

PICTURE ID ALREADY USED IN THIS BLOCK 

MISSING "(" AFTER PICTURE ID 

ILLEGAL PICTURE CHARACTER 

INVALID TRUTHSET EXPRESSION 

INVALID TRANSLATE TABLE 

ILLEGAL FILE ATTRIBUTE 

INTRINSIC MAY NOT HAVE A FILE DECLARATION 

FILES MAY NOT BE DECLARED AT LEVEL 

STRING OR CONSTANT REQUIRED FOR THIS ATTRIB 

CONSTANT EXPRESSION REQUIRED FOR THIS ATTRI 

ILLEGAL VALUE FOR THIS ATTRIBUTE 

INITIAL VALUE OWN VARIABLES NOT IMPLEMENTED 

EVENT MAY NOT HAVE INITIAL VALUE 

THIS ID HAS APPEARED IN THE VALUE PART 

MISSING EVENT DESIGNATOR 

MISSING "ON" OR COLON 

MISSING COMMA 

PROCEDURE FOR SEPARATED COMPILING CANNOT BE 

EXTERNAL 

PROCEDURE FOR SEPARATED COMPILING CANNOT BE 

FORWARD 

GLOBAL PROCEDURE SHOULD NOT HAVE A BODY 

TOO MANY GLOBAL DECLARATIONS 



B6700/B7700 ESPOL 



A- 1 1 



ERR 


ESPOL 


NO. 


PROCEDURE 


792 


ENTER 


800 


DECLARATIONS 


801 


DECLAr<ATIONS 


802 


DECLARATIONS 


803 


DECLARATIONS 


804 


STATEMENT 


805 


STATEMENT 


806 


STATEMENT 


807 


STATMENT 


808 


PRIMARY 


809 


PRIMARY 


810 


PRIMARY 


81 1 


PRIMARY 


812 


PRIMARY 


813 


PRIMARY 


814 


PRIMARY 


815 


PRIMARY 


816 


PRIMARY 


817 


BOOPRIM 


818 


BOOPRIM 


819 


BOOPRIM 


820 


BOOPRIM 


821 


BOOPRIM 


822 


PTRPRIM 


823 


PTRPRIM 


824 


PTRPRIM 


825 


PTRPRIM 


826 


MAKEPOINTER 


827 


MAKEPOINTER 


828 


MAKEPOINTER 


829 


MAKEPOINTER 


830 


MAKEPOINTER 



ERROR MESSAGE 

SYMBOLIC NOT IN NORMAL FORM 
MISSING SEMICOLON AFTER DECLARATION 
ILLEGAL COMBINATION OF DECLARATORS 
"SAVE" MAY NOT BE USED THIS WAY 
"OWN" MAY NOT BE USED THIS WAY 
UNRECOGNIZABLE STATEMENT STARTER 
DECLARATIONS SHOULD PRECEDE STATEMENTS 
MISSING "UNTIL" IN DO STATEMENT 
MISSING "DO" IN WHILE STATEMENT 
NO PRIMARY MAY START THIS WAY 
MISSING ")" 
COMPILER ERROR 
ILLEGAL TRANSFER TYPE 



MISSING "(" 



lu^uvjnu. c.Ai~( 



Tiki T'r^Aki^^i-"r»r^ i^tit.»^\-^T.r^t.t 

iN I PtMINSr CR p UNO I i UlN 



ILLEGAL SECOND EXPRESSION IN 

TRANSFER FUNCTION 

TIMER AND XSIGN MAY NOT BE READ 

WRONG TYPE EXPRESSION IN REGISTER ASSIGNMEN 

NO PRIMARY MAY START LIKE THIS 

COMPILER ERROR 

MISSING ")" 

MISSING "(" 

ILLEGAL EXPRESSION TYPE IN TRANSFER FUNCTIO 

COMPILER ERROR 

MISSING ")" 

CASE EXPRESSION NOT POINTER TYPE 

POINTER PRIMARY CANNOT START WITH THIS 

MISSING "(" 

MUST BE ARRAY IDENTIFIER 

MUST BE ARRAY ROW 

MUST BE ONE-DIMENSIONAL ARRAY 

MISSING ")" 



A- 12 
B6700/B7700 ESPOL 



ERR ESPOL 

NO. PROCEDURE ERROR MESSAGE 

831 SETPRIM MISSING RIGHT PARENTHESIS 

833 MAKEPOINTER CHARACTER SIZE MUST BE LITERAL H, 6, OR 8 

834 BOOPRIM EXPRESSION BEFORE "IN" MUST BE ARITHMETIC 

835 BOOPRIM SET IDENTIFIER REQUIRED AFTER "IN" 

836 STATEMENT HAPPENED AND AVAILABLE ARE 

BOOLEAN INTRINSICS 

837 BOOPRIM THIS EVENT INTRINSIC IS UNTYPED 

838 DECLARATIONS NOTHING BUT PROCEDURES CAN BE SEPARATELY 

COMPILED 

839 DECLARATIONS NO SAVE PROCEDURE CAN BE SEPARATELY 

COMPILED 

840 DECLARATIONS NO "OWN" DEC IS PERMITTED IN SEPAR. 

COMPILATION 
8H1 DECLARATIONS NO "VALUE" DEC IS PERMITTED 

IN SEPAR. COMPILATION 

842 DECLARATIONS SAVE N ALLOWED ONLY FOR N = I 

843 STATEMENT FAULT STATEMENTS MAY NOT BE AT LEVEL 0. 

850 GLOBALDECLARATIONS ILLEGAL GLOBAL DECLARATION FOR 

SEPARATED COMPILE 

851 GLOBALDECLARATIONS MISSING SEMICOLON ON GLOBAL DECLARATION 

852 GLOBALDECLARATIONS ARRAY ID ALREADY DECLARED OR MISSING 

853 GLOBALDECLARATIONS MISSING "[" IN ARRAY DECLARATION 

854 GLOBALDECLARATIONS ILLEGAL BOUND SPECIFIER 

855 GLOBALDECLARATIONS MISSING "1" IN ARRAY DECLARATION 

856 GLOBALDECLARATIONS GLOBAL ID ALREADY DECLARED OR MISSING 

857 GLOBALDECLARATIONS TOO MANY GLOBAL DECLARATIONS 

858 SEPARATEDCOMPILING MISSING SEMICOLON AFTER LAST "END" OF 

PROCEDURE 

860 STATEMENT ILLEGAL VECTORMODE STATEMENT 

861 PROCESSVECTORMODE INVALID VECTORMODE CONSTRUCT 

862 PROCESSVECTORMODE VECTORMODE FOR COUNT REQUIRED 

863 EMITTERS INVALID VECTOR MODE REFERENCE 

900 QUEUEDEC MISSING SPECIFICATION IN FORMAL ITEM LIST 



B6700/B7700 ESPOL 



A- 13 



ERR ESPOL 

NO. PROCEDURE 

921 GENMICRO 

922 PICTUREDEC 

923 REPLACEMENT 

924 PICTUREGEN 

925 PICTUREGEN 

926 PICTUREGEN 



ERROR MESSAGE 

REPEAT i. 65535 

EXTRANEOUS IN PICTURE (INVALID REPEAT PART) 

MISSING ")" 

MISSING "," 

MISSING EXPRESSION 

MISSING ")" 



APPENDIX B. SAMPLES OF GENERATED CODE 



REGIN 

PEAL X. Y, Zj 
X=(00.00C01 
Y»(00,OOCli 
Zs(00,00C2^ 

WORD WROt 
WRD»(OO.OOC'?) 

NAME REAL NAHfREAL » WRD; 
NAMERFALs(0'i.00C3i 

NAME ARRAY NAHEARRAY s WRD l*li 
NAMEARRAY=(00,OOC35 

WORD ARRAY XRAY t*]J 



XRAY«f00,00C4> 

EVNTlatOO.OOCJ) 
EVNT23fOO.O"C7) 

8UFl = t00,00f:9> 

8ur2«(O0.0OCAi 

BUr3«fOO,OOCBi 

BlJFflafOO.OOrCi 

POINT=(00.0OCD5 
PDINTyatOO.OOCEi 



EVENT EVNTl, EVmT?J 
ARRAY Burit*1, 

Burzt^iu 

SAVE ARRAY fl>ir3[51, 
niir4(2aij 

POINTER POINT, PDINTXj 
XRAY [3] J« NULLJ 



l« NAMEREAL» 



M[3] J« WRDJ 



00'?!0000J0 


PUSH 






B4 


005i0000il 


PUSH 






B4 


00«»j0000l2 


PUSH 






B4 


005>OOOOj3 


LT8 






B203 


00S«0000j5 


NAMC 


(00. 


.000041 


40C4 


oosjoooin 


INDX 






A6 


06^j0001l2 


NAMC 


fOO, 


.00091 1 


4091 


OOStOOOl J4 


LOAD 






BD 


OOSiOOOUS 


:xcH 






B6 


00'ij0002:0 


OVRO 






BA 


OOS 10002 11 


VALC 


fOO, 


.000C3i 


00C3 


0O5i00O2«3 


NAMC 


COO, 


.OOOCOi 


40C0 


0ftS:00O2;5 

r3H 

0o5j0003i0 


STOD 






88 






LT8 






B203 


00Sj0003«2 


NAMC 


(00, 


.000C31 


40C3 


onsjOoosiA 


EVAL 






AC 


OOSjOOOSjS 


LOAD 






SO 


005:0004JO 


NXLV 






AD 


oosioooaii 


NAMC 


(00. 


.oooco) 


40C0 


0OSi00O«i3 


STno 






R8 


oosiOooaiA 


LTfl 






B203 


00'>i0005l0 


NAMC 


(00. 


.00004> 


4004 


OOSi0005l2 


INOX 






A6 


OOSf0005«3 


NAMC 


(00. 


.000C3> 


40C3 


OOS|0005«5 


LOOT 






95BC 


OOSi0006ti 
00Sl0006l2 


;XCH 
5VR0 






§t 






0n5l0006!3 


LTfl 






B203 


005l0006l5 


LOOT 






95BC 


oosiooorii 


NAMC 


(00. 


.O00C31 


40C3 


OO'5l000rt3 


OVRO 






BA 



NRD l« M[3]» 



,***********«* ITERATION CLAUSES AND STATEMENTS **** 
THRU 255 00 « 

005«0007t4 LT48 BE 

005i0008 OOIOOFFOOOOO 0001001774000000 



0O5JOO09I0 


LT8 




B204 


005t0009J2 


STAG 




95B4 


005l0009t4 


NAMC 


(OO.OOOCri 


40CF 


OO5tO00Al0 


OVRO 




BA 



APPENDIX B. SAMPLES OF GENERATED CODE 



B- 2 



THRU X - 1 DOJ 



TEHP «{0O.O0CFi 



% ****** 
BEGIN 
X l« ABS 



005«000All 
OOSiOOOAlS 
005»000B:0 
OOSjOOOBjI 
0O5J000AI3 

OOS1OOOB14 
005l000Cf0 
OOStOOOCll 

OCilOOOCJS 
005|0000tl 
00SJ000DI2 
005«000Cl2 
005t000Dl3 
OOSlOOOOlS 

ooisiOooejo 

005iOOOEii 
OO^jOOOElZ 
INTRINSTCS ***** 

(Xil 



NAMC 
LINK 
DLFT 
BRIIN 
STBR 

VALC 

ONE 
SUBT 

VALC 

ONF 

SUBT 

BRUN 

NAMC 

OVRN 

ZERO 

BRrL 



fOO.OOOCFi 
000A|3 

OOOAtl 
OOOBiA 

(OO.OOOCOi 



r00i000CF> 

0000l3 
(OO.OOOCF> 



0000:5 



40CF 

A40000 

B5 

A2200A 

A4800B 

OOCO 

Bl 

81 

OOCF 

Bl 

fll 

A2600D 

40CF 

BB 

BO 

AOAOOC 



*********************************************** 



IF AVAILABLE 



IF BUSY (XI 



BUZZ(Xi» 



O0'>lOO0El5 
OOSlOOOFii 
0O5tO00Fi3 
OOSiOOOFjS 
(EVNTI) THEN 
005l00l0l0 
OOSiOO10j2 
OO'SlOOlOtS 
OOSiOOll «0 
THENI 

OOSlOOUtl 

oo'siooms 

OO^jOOUU 
005t0012«0 

D0Sl0O12»4 
00'5l0012»5 
005l00l3ll 
OOSi0013l2 
00Si0013l5 
00")t00l4l0 

00S|0014l5 
00S|0015j2 
S SET READLOCK 
BUZZ(X)t 

005>0015j3 
005«0015l5 
OOSiOOlftii 
00^l0016l3 
005i00iri0 
005i00iri2 
005i00iri4 
005j0018!2 
005i00l8l4 
005i0019l0 
005l00l9l4 
Oo5l0019t5 
OOStOOtAtO 
OO^jOOlAll 
00Sj001A»3 
Q09l00lAl4 

005t001Bs2 
005i001Bi3 
OOSiOOlCJO 
005l00lCl2 
005tO0lCt3 
OOSiOOlCiA 
005i001Cl5 
OOSlOOlDll 
OOS1OOIO13 
OOSlOOlElO 
O0S1OOIE12 
005I001EI4 
005i001Fl2 



XiLC 
BBST 
NAMC 
STnO 
I 

VALC 
LNHT 

mk 

VALC 
DLET 

DEXI 
ZERO 

ONE 

ROLK 

DUPL 

BRFL 

ZEB(5 

L0G2 

BRUN 
DLET 



DEXI 

LT8 
RPPR 

ISOL 
LTfl 
RPRR 
FL?R 

RPRR 

FLTR 

ONE 

LOR 

DUPL 

NAMC 

OUPL 

RSDN 

EXCH 

DLET 

DUPL 

k^B 
RPRR 

ISOL 

leTB 

RPRR 

FLTR 

LT8 



(OO.OOOCO1 
(OCooOCOi 

(00,000C5> 



(00,000C0> 

(OO.OOOCO1 
001^12 

00l?il 



(OO.OOOCOi 



002H3 



OOCO 
9E2E 
40C0 

68 

00C5 
92 

9A0201 
B5 

OOCO 
85 

9547 
BO 

48CO 

95BA 

B7 

A04ni5 

80 

958B 

958B 

85 

A22012 

85 



9547 

B220 

95B8 

9A0F24 

B236 

95B8 

98130F'. 

8235 

95B8 

982F0B0C 

81 

91 

B7 

40C0 

87 

9$BA 

87 

A06023 

95B7 

B6 

B5 

B7 

B220 

95B8 

9A0F24 

8236 

95B8 

98130F10 

B235 



APPENDIX B 


. SAMPLES OF GENERATED CODE 


roVMii'o 


RPRR 




9SBA 


ELTR 




9fl2EOB0C 


OOStOO?Oi« 


ONE 




HI 


onstoo?oj5 


LOP 




91 


005l00?l 10 


rolk 




958A 


Of)5«oo2i:2 


DUPL 




R7 


0oSjOO?1i3 


BRFL 


002313 


A060?3 


OflSl0022tO 


ZERO 




80 


onsjOO?2Jl 


LOG? 




956B 


00St0022«3 


f^'l 




9S8R 


OnSi002?:5 




85 


0OSI0023J0 


BRlIN 


001C:3 


A2601C 


0O5sO0?3!3 


RSHN 




95ii7 


oosiooasis 


DLET 




85 


OOSl00?4!O 


OLET 




85 


OosjOO?ai 1 


DLET 




85 


S POP REaOLOCK 








X »« 1 ♦ DUPLICftTfJ 








00'S|0024»2 


ONE 




«1 
87 


00St00?««3 


DUPL 




00S«002ai4 


ADO 




80 


0f)Si0024i5 


NAMC 


f oo.nooco) 


«oco 


00Si002'5Jl 


STOD 




e« 


X «» ENTirR (Xj» 








OOSjOOSSJl 


STDN 




89 


0OSJ0025J2 


XTND 




CE 


005tOO?Sj3 


LTfl 




B29B 


00Sj0025«5 


ISOL 




9A0930 


00'it00?6!2 


SURT 




81 


Oo5l0026t3 


NTGR 




87 


0OS|0O26:4 


NAMC 


f oo.nooco) 


40C0 


00'ii0027j0 


STOD 




88 


FXCHANGEtX. WR0,J 








0f)5i00?7j0 


STHN 




B9 


00«ii0027tl 


NAMC 


{00.000C31 


aoC3 


00S»0027i3 


ROLK 




95BA 


0r)St0027i5 


DLET 




85 


X t* EXCHANGr (X. WRD)} 
OO'JlOOjfttO 








VALC 


f OO.OOOCO) 


ooco 


00Si00?8t2 


NAMC 


roo,oooc3) 


40C3 


005J0028U 


RDJ^K 




95BA 


005 1 0029 lO 


NAMC 


f OO.OOOCO) 


40C0 


0OS«0O29«2 


STnn 




88 


URO is ExcHAwGEtX, WRO)J 








005l00?9:2 


STON 




89 


00«>«0029j3 


NAMC 


f 00,OO0C3i 


A0C3 


00Sj0029j5 


RDLK 




95BA 


00'5«002Atl 


NAMC 


f 00,O00C3) 


4003 


00Sl002At3 


OVRO 




BA 


EXCHANGEtwRO. X^t 








00Si00?Al3 


OVRN 




88 


00Sj00?Al4 


NAMC 


(OO.OOOCOi 


40C0 


00'5«00?BtO 


RDLK 




958A 


OO'ii002Bj? 


OLET 




85 


X l« EXCHANGE (WRD. Xl » 
00'5i0028j3 








NAMC 


(00,OOOC3) 


40C3 


0OSi002Bj5 


LOOT 




95BC 


00'5tOO?C:l 


NAMC 


(OO.OOOCOi 


40C0 


00';t002Ci3 


RDLK 




958A 


OOStOOPCtS 


NAMC 


f OO.OOOCO) 


40C0 


OOSjOO?0«1 


STnO 




88 


WRD la EXCHANGEf WRO, X>} 








005i002D:2 


NAMC 


(00,nooC3i 


40C3 


00S>0020J« 


LOOT 




958C 


005jOO?EjO 


NAMC 


fOO.noocoi 


40C0 


0OSi0O2Ej2 


RDLK 




95BA 


00S«002E:« 


NAMC 


{00,000C3i 


40C3 


0OSjOO2EiO 


OVRD 




BA 


EXCHANGE fXil 








0O'ii00?F»l 


VALC 


f OO.OOOCO) 


OOCO 


00Sl00?rt3 


EXCH 




86 


Oo')i002F«« 


DLET 




85 


EXCHANGE (1)1 








00SJ00?FJ5 


ONE 




81 


OO5j0O30«O 


EXCH 




86 


005j0030i1 


OLET 




85 


X l« EXCHANGEdU 








005j0030:2 


ONE 




81 


0051003013 


EXCH 




86 


005j0030>a 


NAMC 


roo.ooocoi 


40C0 


00510031 JO 


STnn 




88 



B- 3 
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IF HAPPENED fEVNTn THENi 

005l003ill VALC f00,000C5i 00C5 

OOStOO^US ISHL 940001 

On'58003113 niET RS 
X »» INTEGER (PniNT, 31? 

0OSjOO31j0 NAMC rOO.OOOCDi «OCD 

005j0032j0 load 80 

0n«ii0032Jl LT8 8203 

005|0032l3 ICVO CA 

OOStOOSgJft NTGR 87, 

00^:003285 NAMC (OO.OOOCO^ 40C0 

Or)Si0033»l STnn Bfl 
t I" LISTLOOKUP fX. XRAYf*). XU 

OOS:0033ll STHN 89 

0O';i0033l2 NAMC fOOiOOOCfli 40C4 

00Sj0033tft LOAD 80 

OOStOOSStS VALC fOOiOOOCOi OOCO 

OOSiOOSajl LLLU 95BD 

0nSiO034t3 NAMC (OOtOOOCOi 40C0 

0OSt0O3<u5 STOO B« 
X »■ MASKSEARCH {X. Xt XRAV[*]W 

0OSi003aj5 STON 89 

0OSt0O35lO DUPL R7 

O0'^tO035:l NAMC (OO.ooOCfti flOCa 

OftSt0035«3 LOAD BD 

00S:0035S4 SRCH 95BF 

005|0036J0 NAMC (00,OOOCO> flOCO 

00^«0036l2 STflD Bfl 
Z «« MAX(Xf V. Z>I 

0O«5t0036l2 STON 89 

00S|0036l3 DUPL 87 

0OS»0036»4 VALC fOO.OOOCli OOCt 

OOSjOOS?!© DUPL 87 

0O'il0O37jl RSnN 95B7 

OOS|0037J3 GREQ P9 

00Si0037j4 BRTR O03«l2 A14036 

00^1003811 EXCH B6 

00Si0038l2 DLET 85 

005»0036l3 ODpL B7 

005j0038l« VALC f00.O0OC7> OOC? 

005l0039t0 DUPL 87 

005t0039:i RSDN 95B7 

005|0039J3 GREO 89 

005|0039l4 BRTR 003ai2 Aia03A 

005|003All EXCH 86 

005i003Aj2 DLET , , 85,^ 

005l003Al3 NAMC fOO,nOOC?t 40C2 

0n5i003Al5 STnn B8 
Z «■ MIN(Xi Yi 7i« 

OOSjOOSBlO VALC fOOiOOOCOi OOCO 

005l003Bt? DUPL „ „, B7 

005|003Bt3 VALC fOO.OOOCli OOCl 

005J0038|5 DUPL 87 

005l003C«0 RSON 95B7 

OO5l003Ci2 LSEO 8B^^ „ 

005i003C«3 BRTR 003ntl A1203D 

005i003DiO EXCH 86 

005l003Dll DLFT B5 

00Si003Dl2 DUPL R7 

005|003D«3 VALC (00,000C2i 00C2 

005l0030r5 DUPL B7 

005l003El0 RSON 95B7 

OOSl003El2 LSEO 8B 

005j003Ei3 BrtR 003ril A1203F 

0O5t003rtO EXCH 86 

005t003rjl DLET 85 

005l003Fl2 NAMC r00,n0OC2i 40C2 

005l003Ft4 STnD 88 

X !■ NABS {X>l „ . 

00Si003Fl5 VALC fOO.OOOCOi OOCO 

005l0040ll BSFT 962F 

005i0040t3 NAMC (OO.OOOCOi 40C0 

005t0040l5 STflD B8 
X l« NORMALIZE (X^t ^ , 

00'^l0040l5 STON 89 

005l0041l0 SNGL CD 

005J004U1 NAMC (OO.OOOCO^ 40C0 

0051004113 STnD B8 

Y «• QCRX (1, X,| „ „ 

005i00«ll4 ONE Bl 

005jOO«U5 VALC COOiOOOCOi OOCO 
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Q05i0gft2il OCRX 958S 

onSfOoa2i3 NAMC foo.ooocii aoci 

OOSlOOaJjS STOD " Ji V . 
X l» REAL {PniNT, Iji 

00St00a3J0 NAMC fOO.OOOCOi 40C0 



STOPS 
STOP (351 



STOP (3. ^)t 



UNLOCK (XiJ 



74PJ 



0OSj0O43f2 LOAD BD 

0O5i00a3t3 ONr ri 

005i00a3:4 SISO OS 

0n«;t0043l5 NAMC fOO.OOOCOi «0C0 

OOSlOOAftJl STnO Bfl 

005«00«iJ2 HALT or 

00St004aj3 LTfl 8203 

OO'iiOOaaiS 2EP0 80 

OO'ilOOaSlO EXCM B6 

00Si0045ll HALT OF 

00^:0045:2 OLFT ss 

00'>i0045:3 OLFT BS 

0oSt0045:4 LTfl 9203 

00*5:0046:0 LTfl e?03 

00^:0046:2 EXf.H B6 

00'5:0046:3 HALT Or 

00S:0046:4 DLFT fis 

00'i:0046:5 DLFT 95 

005:00«7»0 NAMC fOO.OOOCOi 40C0 

005:0047:2 ZE«?0 HO 

005:0047:3 STOO Rfl 



,. „ _ . „ 005:0047:4 PTPA 954D 

END or intrinsicstuff: 

****** EVENT STATEMENTS ******♦*•**•**♦♦**•♦*♦ 

BEGIN 

SET (EVNTni 

005:0048:0 Hkst ae 

005:004fl:l NAMC f00.00099i 4099 

005:0048:3 NAMC f00,O0OC5i 40C5 

005:0048:5 STFF Ar 

005:0049:0 ONF Bl 

„,.,, ^ . 0O540049M ENTR A§ 

PESET (EVNTlnJ 

005:0049:2 MKST AE 

005:004913 NAMC f00.00099i 4099 

225*2S5?»5 Vi"^ t00,000C5i 40C5 

0O5:004A:l STFF AF 

005:004A:2 ZEPO 80 

005:004A:3 ENTR aB 
CAUSE (EVNTliS 

005:004A:4 hkst aE 

005:004A:5 NAMC f00,00096> 4096 

005i004B:l NAMC f00,o00C5i 40C5 

005:0046:3 STfF AF 



CAUSFNRESFT fEVNTnj 
OO5:()0 



005:004B:4 one 81 

005:0048:5 ENTR Afi 



04C:0 MKST AE 

SD^'SS^S'l *'**'C fOO, 000961 4096 

005:004C:3 NAhC fO0.OO0C5i 40C5 

005:004C:5 STfF AT 

005:0040:0 ZERO BO 

005:0040:1 ENTR ap 

005:0040:2 MKST ae 

005:0040:5 NAmC f00,O00C5i 40C5 

005:004E:I STFF AF 

005:004E:2 ZERO Ro 

005:0040:3 NAMC f00,00098i 4098 

005:004E:3 ENTR aB 

0o5:004E:4 hkst ae 

005:004F:l LT8 8205 

225'22*P5 5^^C (00.000131 4013 

005:004F:3 ZERO BO 

...., . -, ^ 005!Q04F:4 ENTR AB 

w*IT ((3>, EVNTi, EVNT2i: 

005:004r:5 mkst ae 

005:0050:2 LT8 B203 

005:0050:4 ZEPO BO 

005:0050:0 NAMC f00,0009Fi 409F 



WAIT (EVNTlU 



WAIT ((5m 
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005i0050j5 
OOSiOOSlll 
0O«i|00Slt2 
00«!j0051t3 
OOSjOO^l J5 
OOSjOOSZjO 
00'5i0052jI 
005t00'i2J2 

WAITANORESET (EvNTlU 

OnSsO052l3 
005I00S3J0 
00"5t005382 
00Sl0053l3 
00SI0052I4 
00SI0053I4 

WAITANORESET ({3>. EVNTl, 
OOSjOOSSlS 
0o5l0054l2 
005fOQ5aifl 
OOS j005<tl0 

onssoosais 

005t0055tl 
O0'i«005'>t2 
0n'Si0055«3 
00SJ0055J5 
005i0056l0 
00St0056ll 
005i0056l2 
nSMAIT (EVNTm 

00St0056t3 

00'!i|0057j2 
00'S»005r j3 

oo-jjoos/ia 

0OS|0056t4 
Of) "51005715 



(0O.O0OC5> 



f OO.OOOC/i 



NAMC 
STFF 
ZERO 
NAHC 
STFF 
ZERO 
ENTR 
DLET 



MKST 

NAMC (0O.O0OC51 

STFF 

ONE 

NAMC 

ENTR 

EVNT2^! 

MKST 

LT6 

ONE 

NAMC 

NAMC 

STFF 

ONE 

NAMC 

STFF 

ONE 

ENTR 

OLET 



f 00t0009«i 



(00,n009Fi 
(0O.OO0C51 

f00,000C7> 



OSWAIT ((3)11 



OSHAIT {{3)1 



OSMAITNRESET 



OSWAITNRESET 



005i0058«0 
005i005ftl3 
OO5i0058ll 
005l0058l5 
005t0059l0 

EVNTl. EVNT? 
005i0059Jl 
005|0059J4 
005t005AlO 
005l005All 
005l0059»2 
00';j005Al2 
005l005A:4 
005i005Aj5 
005|005BlO 
005|005Bt2 
005i0058l3 
005i0058t4 
005j005Bj5 

(EVNTliI 
005j005ClO 
005|005Cl3 
On5iO05C»5 
005l005DlO 
005«005Dll 
005l005Cll 
005l005D«2 

((3>. EVNTl. 



MKST 
NAMC 

STFF 
ZERO 
CHSN 
NAMC 
ENTR 

MKST 
LT« 
NAMC 
ZERO 

ENTR 

MKST 

LTB 

ZERO 

CHSN 

NAMC 

NAMC 

STFF 

ZERO 

NAMC 

STFF 

ZERO 

ENTR 

DLET 



f 00.000C51 



C00.n0098> 



(00.00013) 



f 00.0009F1 
(00,oOOC5i 



{O0.O00C7) 



OOSiOC 

00Si005El2 
005I005EJ3 
005t005Dl4 
005|005El4 
005«005Fl0 
005l005Ell 
005l005ri2 
005i005Fi4 
005i005r j5 
005t0060l0 
005J0060I1 
PROCURE {EVNTlji ^ 

005i0060j2 
005l0060l3 



MKST 

NAMC f00.000C5i 

STFF 

ONE 

CHSN 

NAMC 

ENTR 

EVNT2) J 

MKST 

LTfl 

ONE 

CHSN 

NAMC 

NAMC 

STFF 

ONE 

NAMC 

STFF 

ONE 

ENTR 

OLET 



MKST 
NAMC 



(00,oo09e> 



{00.0009F> 
{OO.O0OC5) 



(00.000C7) 



f oo.no09Ai 



40C5 

AF 

BO 

40C7 

AF 

RO 

AB 

B5 

AE 

40C5 
AF 

Bl 

409B 

AB 

AE 
B203 

409F 
40CS 
AF 

4ic7 
AF 

?l 
85 

AE 

40C5 
AF 
BO 

4098 

AS 

AE 

8203 

4013 

80 

AB 

AE 

BE 

409F 

40C5 

AF 

80 

40C7 

AF 

80. 

A8 

85 

AE 

40C5 

AF 

Bl 

8E 

4098 

A8 

I^Z 
8203 

81 

8E 

409F 

40C5 

AF 

81 

40C7 

AF 

81 

AB 

85 

AE 
409A 
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225'2260i5 NAHc foo.ooocs^ aocs 

OOSiOQftlJl STFr AT 

OOSi006ll2 ENTR ab 
FIX (EVNTUf 

OOSI006U3 MKST AF 

OnSi0061l4 NAMC f00.0008E> 408E 

P0'S»0063I3 flNF 91 

00Sj0062ta ENTR AB 

00SJ0062S5 DLFT BS 

LIBERATE (EVNTl,t ^ 

0nSj0063l0 MKST AE 

OOSjOOdBll NAMC fOO,0009Ci 409C 

0O5i0063:3 NAMC fOO.OOOCSi 4005 

005i0063:S STFF AF 

OOSjOOftfliO ENTR AB 

FREE (EVNTlw *" 

OnS«0064«l MKST AE 

OOSi00i<iA»2 NAMC fOO.DOOSEi 408E 

S!J^'82^2'5 ?i"C (00,000C5i «OCS 

OOSs0065iO STFF AF 

OOSiOOftSjl ZERO 80 

OOStOOASi? ENTR AB 

005i0065j3 DLFT BS 
END OF EVENTSTATEmENTSI 

****** POINTER EXPRESSIONS *********************< 
REGIN 

POINT l« POTNTERf BUF1>I 

00';j0065i4 NAMC (00,000C9i 40C9 

00^j00fi6j0 LOAD BD 

00Si0066«l NAMC (OO.noOCD) 40C0 

„ . OOS80066J3 DVRO RA 
POINT l« P0TNTER{6UF?t3J>J 

00S|0066U LT<? R?03 

0OSt0O67:0 NAMC fOO.noOCA, 46CA 

005t0067:2 INnx A6 

2"^'22*J'J Ii**^c (oo.onocoi aocn 

0nSi0067»5 OVRD RA 
POINT l» P0INTER(8UF3>» 

OOVj0068tO NAMC fOOiOOOCR, 40CB 

oosjooftstz LOAD eo 

00S|0068t3 NAMC fOO.OOOCD^ 40C0 

««..,. ^woStu0ft8»5 OVRO 8A 
POINT l« P0TNTER(8UF4t3]^; 

005t0069i0 LT« B203 

225'22^2'? ^**^c (oo.ooocci 40CC 

005j0069t4 INnx A6 

0OStOO69r5 NAMC tOO.oOOCOi aoCD 

005:006All OVRD RA 
POINT t« POTNTtR(BUFl, *,> 

0OS!006Al? NAMC f00,O00C9i 40C9 

OOSiOOfeAM LOAD BD 

OOSl006A!5 NAMC fOO.OOOCDi 40C0 

005|006Bjl OVRD BA 
POINT i. P0TNTER(9UFl, 4,1 

2'^^'22*S'^ "^S^C (00.000C91 40C9 

005l006Bl4 LOAD BD 

OO-JiOOfSBlS BSET 9629 

OOSiOOdCil NAMC fOO.oOOCD, 40CD 

005j006Cj3 OVRD BA 
POINT »« P0tNTER(8UF?[3]. 611 

On«5t006C»4 LTfl B203 

0n5j006Dl0 NAMC fOO.OOOCA, 40CA 

00'it0060J2 INOX A6 

OOS1OO6O13 BSET 9629 

OOS1OO6O15 eSFT 9628 

005I006EI1 NAMC fOO.OOOCOi 40Cn 

0O'5t006El3 OVRD BA 
POINT l» P0TNTERt8UF3r31. 8iJ 

005!006E!« LT8 B203 

00';i006FlO NAMC (00,OO0CB> 40CB 

OOSi006Fj2 INnx A6 

005j006F:3 BSFT 962a 

n2S'225«'? SftUS fOO.OOOCOi 40CD 

„o,..- . ««. ,OOS|0070Jl OVRD BA 
POINT t» POINT * tJ 

005i00r0i2 NAMC tOO.OOOCDi 40CD 

00'5t0070j4 LOAD BD 

00'5l0070l5 ONE Bl 

005t0071i0 EXPU no 
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B- 8 



005 I 
OoSl 
0051 

POINT l«* ♦ ! » 

OO-St 
005 I 
0051 
0051 
0051 
OOSi 
OOSj 
005! 

POINT «■ POINTXi 

005i 
0051 
005« 
005« 

END OF POTNTEREXPR 
******* MISCELL4 

CASE X or 



887^11 


srnc 

NAHC 


0071 tH 


OVRD 


0071J5 


NAMC 


007211 


OUPL 


007212 


.040 


007213 


)NE 


007214 


EXPU 


007215 
007310 


srnc 


EXCH 


007311 


OVRD 



(00,000C0> 
tOO.OOOCDi 



0073J2 

0073J4 

007315 

007«ll 

ESSIONS 

NEOUS C 



NAMC 
LOAD 
NAMC 
OVRD 



f OO.OOOCE^ 
(00,OOOCD> 



BEGIN 
Y l» 0» 



Y l» 01 



Y |« 01 



005i0074j2 



t 

ONSTRUCTS *♦*****♦< 

VALC fOO.OOOCOi 



Y n 



01 



l« 1» 



Z t» 1» 



Z «■ 1« 



ENOI 



005J 
005? 
005j 
0051 

0051 
0051 
005» 
0n5j 

005« 
0051 
005» 
005J 

0051 
0051 
0051 
0051 



0075t4 
0075J5 
0076tl 
0076J2 

0076t5 
0077J0 
007712 
0077t3 

007810 
007811 
007813 
0078(4 

0079J1 
007912 
007914 
007915 



0051 
0051 
0051 
0051 

005x 
005 » 
0051 
0051 

005t 
0051 
0051 
005» 

005j 
005t 
005t 
0051 
005t 
005» 
0051 
0051 
0051 
0051 
0051 
005 J 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 



00yAl2 
007AI3 
007AI5 
007BJ0 

007RJ3 
007814 
007CI0 
007CJ1 

007CI4 
007CJ5 
007DJ1 
007DI2 

Q070t5 
007414 
007510 
0075»1 
007EI0 
007E13 
007ri0 
007rt3 

ooeoto 

008013 

0081IO 
0081I3 

0082(0 
0082(3 
0070(2 
0082(3 
007C(1 
0082(0 
0078(0 
0081(3 



ZERO 
NAMC 
STOO 
LINK 

ZERO 

NAMC 
STnD 
LINK 

ZERO 
NAMC 
STnD 
LINK 

ZERO 
NAMC 
STOD 
LINK 



ONE 
NAMC 
STOO 
LINK 

ONE 
NAMC 
STOD 
LINK 

ONE 
NAMC 
STOD 
LINK 

NVLO 

LTfl 

ADO 

DBUN 

BRDN 

BRUN 

BRIIN 

BRIIN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 

BRUN 



(OO.noocii 

007ft, 2 

fOO.OOOCli 
0077(3 

fOO.OOOCl 1 
007s, 4 

fOO.OOOCli 
0079(5 



f00,000C2i 
007R,0 

f 00,000C2i 
007C(1 

(OO,O0OC2i 
0070(2 



0083(0 
008^(0 
0083(0 
008^,0 
0083(0 
0083(0 
0083(0 
008^(0 
0083(0 
0083(0 
0083(0 
007C(4 
0083(0 
0078(3 
0083(0 
007A(2 



DA 

40CD 

RA 

40CD 

87 

RO 

81 

DO 

5* 
86 

RA 

40CE 
80 

40C0 
BA 



OOCO 



BO 

40C1 
88 
0002C2 

80 

40C1 
88 
0102C9 

80 

40C1 
B A 
020200 

"0. 
40C1 
88 
030207 



81 

40C2 
B8 
b702DE 

81 

4002 
88 
0802F5 

81 

40C2 
88 
0902EC 

FF 

R2FC 

80 

AA 

A20083 

A20083 

A20083 

A20083 

A20083 

A200B3 

A20083 

A20083 

A20083 

A20083 

A20083 

A2807C 

A20083 

A2607B 

A20083 

A2407A 
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00Sj0079j5 BRUN OO8I1O A200fl3 

0OSj007Ft3 BRIIN OO/^ll 4?20r9 

OOSlOO^aia BRgN OOBljO 4200fl3 

OfJ^'SSJ^'? RSttN 007«jO 420078 

S2^'S2JPI iSU*^ 0083,0 A20083 

225'22Jf'^ §5"-"^ 0076,5 A2A076 

2J5'2SJ^'? SS^'** 0081,0 A20083 

00'58007E:0 BRIJN 0075,4 A28075 
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APPENDIX C. SYNTAX OF THE ESPOL LANGUAGE 

THIS APPENDIX CONTAINS IN LOGICAL ORDER THE COMPLETE SYNTAX FOR THE 
ESPOL LANGUAGE. THE NUMBER TO THE LEFT OF EACH SYNTACTICAL FORMULA 
IS THE LINE NUMBER REFERRED TO BY APPENDIX D. THE NUMBER(S) TO THE 
RIGHT REFERS TO OTHER LINE NUMBER(S) IN THIS APPENDIX THAT DEFINE 
THE VARIOUS ITEMS OF THE FORMULA. 



B6700/B7700 ESPOL C- 2 

APPENDIX C, SYNTAX OF THE ESPOL LANGUAGE 

1 <f'ROGHIH> li> <BUOCK> , <SPACC> 

f <C0NP0UN0 STATEMENT> . <SPACE> 

2 <BLOCK> tl> <BLOCK HeAD> I <C0HP0UN0 TAIL> 

3 <SPAC£> It* <SINGLE SPACE> 

/ <SPACE> <SINGLE SPACE> 

4 <CUHPgUNa STATEHENT> il> BEGIN <C0MPDUND TAIL> 

5 <BLQCK HEAO> ila BEGIN <DECl.ARATION> 

/ <BLOCK HEAD> X <DECLARATI0N> 

6 <COHPOUN0 TAIL> lt> <STATEMENT> END 

/ <STATEMENT> I <COMPOUNO TAIO 

7 <SINGLE SPACE> ll« SQNE HORIZONTAL BLANK POSITIONS 

8 <OECLARATION> I In <ARRAY OECLARATION> 

/ <DEriNE OECLARATION> 

/ <DEriNE INV0CATI0N> 

/ <DIRECT ARRAY DECLARATI0N> 

/ <EVCNT OECLARATION> 

/ <EVENT ARRAY DECLARATI0N> 

/ <riELO OECLARATION> 

/ <FILE DECLARATION> 

/ <INTERRUPT DECLARATIONk 

/ <LABEL DECLARATIQN> 

/ <LAYOUT DECLARATI0N> 

/ <M0NIT0R DECLARATION> 

/ <PICTURE OECLARATION> 

/ <PROCEOURE OECLARATION> 

/ <flUEUE ARRAY DECLARATION> 

/ <OUEUE 0ECLARATI0N> 

/ <TYPE DEClARATION> 

/ <VALUE ARRAY DECLARATION> 

9 <STATEMEnT> II> ^CONDITIONAL STATEMENT> 

/ <unconditional statenent> 

10 <ARRAY 0ECLARATI0N> ll> <ARRAY KlND> ARRAY <ARRAY LIST> 

11 <0EFINE DECLARATI0N> tia DEFINE <DEFlNITION L1ST> 

12 <0EFINE 1NV0CATI0N> it- <OEFlNED IDEnTIFIER> <ACTUAL TEXT PART> 

13 <OIRECT ARRAY DECLARATI0N> II- DIRECT <0IRECT ARRAY KIND> ARRAY 

<ARRAY LIST> 

14 <EVENT DECLARATION) II- <EVENT IDENTIFIER LIST> 

15 <EWENT ARRAY DECLARATION) II- EVENT ARRAY <EVENT SEGMENT LIST> 

16 <FIELU DECLARATION) 1 1- FIELD <FIELD PART fcIST> 

17 <FILE DECLARATION) li- <DIRtCT SPECIFIER) FILE «FlLt LIST) 

18 <INTERRUPT DECLARATION) U- INTERRUPT <INT£RRUPT SEGMENT) 
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3 




3 




6 
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8 








6 










































20 




21 




22 




23 




24 




25 




26 




21 
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31 








34 
























40 
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19 <LAB£t. UECLARATI0N> It" LABEL <LA6EL LIST> 

20 <LAYOUT OECLARATION> Jt» LAYOUT <LAYOUT PART LIST> 

21 <rtONlTUH OECLARATI0N> lt« MONITOR <PROCEDURE IDENTIFI£R> C 

<HONITOR LIST> ) 

22 <PICTgRE DECLARATION* !!« <SAVE OR ONN> PICTURE cHICTURE PAKT LIST> 

23 <PROCfcDURE DECLARAT10N> ll« <SAVE PART> <PROCEDURE TYPE> PROCEDURE 

<PRQCEDURE HEA01N6> <PROCEDURE BQDY> 

24 <aUEUt ARRAY 0ECLARATIQN> ««■ QUEUE ARRAY <aUEUE ARRAY HEAD> [ 

<IN0EX BOUND> ] <QUEUE BOOY> 

25 <ttUEUE UECLARATION> i|« QUEUE <QUEUE HEAO> <OUEUE BUOY> 

26 <TYPE DtCLARATlON> ll« <TYPE> <TYPE LIST> 

/ ONN <TYPE> <TYPE L1ST> 

27 <VALU£ ARRAY 0ECLARATI0N> ««■ <ARRAY SAVE PART> <VALUE TYPE> VALUE 

ARRAY <VALUE ARRAY PART LiST> 
28 <C0N0iT10NAL STATEMENT> ««» <IF CLAUSE> <STATEMENT> 

/ <IF CLAUSE> <UNC0NDITI0NAL STATEMENT> 

ELSE <C0N0ITIONAL STATEMEnT> 
/ <CONDITIONAL ITERATION> 
/ <LABEL> « <CQNDITIONAL STATEMtNT> 
29 <UNCONDiTlONAL STATEMENT> «l» <EMPTY> 

/ <IF CLAUSE> <UNCONDITIONAL STATEMENT> 

ELSE <UNC0NDITIONAL STATEMENT> 
/ <LABEL> « <UNC0NDITI0NAL STATEMENT> 
/ <AS5IGNMENT STATEMENT* 
/ <6ASIC STATEMENT* 
/ <BLOCK> 

/ <compouno statement* 

/ <define invocation* 

/ <event statement* 

/ <fork statement* 

/ <funct10n designator* 

/ <i/d statement* 

/ / <interrupt statement* 

/ <0n statement* 

/ <procedure statement* 

/ <replace statement* 

/ <scan statement* 

/ <UNC0NDITI0NAL ITERATION* 
30 <AKRAT KIND* Mb <EMPTY> 

/ <LOCAL OR ONN TYPE* 

/ SAVE <LOCAL OR OHN TYPE* 
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42 




43 




44 




45 




46 


4? 


46 


49 


50 


51 


52 




53 


54 


55 


54 


56 


57 


56 


57 


58 


59 


60 




61 


9 


61 


29 


26 




62 




63 


28 


64 




61 


29 


29 




63 


29 


65 




66 
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4 




12 




67 




68 




69 




70 




71 




72 




73 




74 




75 




76 




64 




77 




77 





B6700/B7700 ESPOL C- 4 

APPENDIX C. SYNTAX OF THE ESPOL LANGUAGE 

31 <ARRAt L1ST> Ma <ARRAY SE(iMENT> 

/ <ARRAY LIST> . <ARRAY SE6MtNT> 

/ <initializeo ARRAY> 

/ <ARRAY LIST> . <lNniALIZEU ARRAY> 

32 <0EFINITI0N LIST> M« <OEFINlTION> 

/ <DEFlNniUN LIST> » <DEFINniON> 
33<DEFINE0 I0ENTIF1ER> tt« <10ENTIFIER> 
34<ACTUAL TEXT PART> ««« <EMPTY> 

/ ( <closed text LIST> ) 

/ I <CLOSED TEXT LIST> ) 
35<UIRECT ARRAY KINO> H« <EMPTY> 

/ <TYPE> 
36<EVENT IDENTIFIER LIST> »l« <EVENT IDENT1F1ER> <AODRESS PART> 

/ <EVENT LIST> , <EVENT Il)ENTIFIER> 
<ADORESS PART> 
37<EVENT SEGMENT LIST> II" <EVENT SEGMENT> 

/ <event segment LIST> » <event seument> 
38 <field part list> •»■ <field part> 

/ <F1EL0 PART LIST> > <FIELD PaRT> 

39 <DlRECT SPECIFIER> ««■ <EMPTY> 

/ DIRECT 

40 <FILE LI5T> II" <F1LE LIST PART> 

/ <FILE LIST> » <FILE LIST PART> 

41 <INTERRUPT SE6MENT> M" ^INTERRUPT IDENTIFIER> I <STATEMENT> 

42 <LABEL LI5T> lis <LABEL IDEnTIFIER> 

/ <LABEL LIST> » <LABEL IOENTIFIER> 

43 <tAYOUT PART LlST> l«" <LAYOUT PART> 

/ <LAYOUT PART LIST> . <LAYOUT PART> 

44 <PROCEDURE IDENTIFIER> U" <IDENTIFIER> 

45 <M0NIT0R LIST> It" <HDNIT0RED ITEM> 

/ <MONITOR LIST> • <MONlTORED ITtM> 

46 <SAVE OR OMN> t I" SAVE 

/ OMN 

47 <PICTURE PART LIST> II* <PICTURE PART> 93 

/ <PICTURE PART LIST> . <PICTURE fART> 47 93 

48 <SAVE PART> II" <EMPTY> 64 

/ SAVE 
/ SAVE 1 

49 <PROCEDURE TYPE> II" <EMPTY> 64 

/ <TYPE> 56 

50 <PROC£OURE HEA0ING> H« <PR0CEDURE IDENTIFIER* <ADDRESS PART> 44 84 



78 




31 


78 


79 




31 


79 


80 




32 


80 


81 




64 




82 




82 




64 




56 




83 


84 


85 


83 


84 




86 




37 


86 


87 




38 


87 


64 




88 




40 


88 


89 
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90 




42 


90 


91 




43 


91 


81 




92 




45 


92 
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51 



52 
53 
54 
55 
56 



<FORMAL PARAMETER PART> » 
<PROCEOURE BODT> at* <STATEMENT> 

/ FORWARD 
/ EXTERNAL 
/ NULL 
<gUEUt ARRAY MEAD> II« <aUEuE ARRAY 1DENT1FIER> <1NTERNAL NAME PART> 
<INDEX 80UND> Its <ARITHMET1C EXPRESSION> 
<UUEUE B0OT> tl> <ENTrY DESCHIPT10N> I <ALGORITHM PART> 
<«UEUfc M£AD> ««■ <OUEu£ I0ENTIF1ER> <INTERNAL NAME PART> 
<TYPE> ll« BOOLEAN 
/ DOUBLE 
/ EVENT 
/ INTEGER 
/ NAME 
/ POINTER 
/ REAL 
/ REFERENCE 
/ MORD 



94 
9 



57 <rTPE LJ5T> IP 



<TYPE PART> 

/ <TYPE LIST> « <TYPE PART> 



58 <ARRAY SAVE PART> ll» <EMPTY> 

/ SAVE 

59 <v'ALUE TYPE> 8 Is REAL 

/ INTEGER 
/ DOUBLE 
/ BOOLEAN 

60 «VALU£ ARRAY PART LlST> •!■ <VALUE ARRAY IDENTIFIER> 

<REPLACEMENT OPERATOR> ( <C0NSTANT LIST> 
) 
/ <VALUE ARRAY IDENTIFILR> ( 
<C0NSTANT L1ST> ) 

61 <1F CLAUSt> n> IF <BOOLEAN EXPRESSIGN> TmEN 

62 <CONDiTIQNAL ITERATIQn> ««« <ITERATION CLAUSE> <C0NDITI0NAL STATEMENT> 

63 <LABEL> !!■ <LABEL 1DENTIF1ER> 

64 <EMPTY> ita sTME NOLL STRING OF CMARACTERS2 

65 <ASSIGNMENT STATEMENT> lt> <ARITHMETIC ASSIGNMENT STATEMENT> 

/ <ARRAY ASSIGNMENT STATEMENT> 
/ <BUOLEAN ASSIGNMENT STATEMENT> 
/ <fllUEUE ASSIGNMENT> 
/ <REFERENCE ASSIGNMENT> 

/ <mord assignhent> 



95 


96 


97 




98 


99 


100 


96 



101 
57 101 
64 



102 
103 104 



102 
104 
105 

106 
90 



28 



107 
108 
109 
110 
111 
112 
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66 <8ASIt STATEMENT> ««■ <G0 TO STATEMEnT> 113 

/ <DUMMt STATEMENT> IH 

/ <CAS£ STATEMENT> 115 

67 «EVENT STATEMENT> »l» <SET STATEMENT> 116 

/ <RESET STATEMENT> 117 

/ <CAUSE STATEMENT> 118 

/ <CAUSEANDRESET STATEM£NT> 119 

/ <WA1T STATEMENT> 120 

/ <WA1TANDR£SET STATEMENT> 121 

/ <DSWA1T STATEMENT> 122 

/ <OSWAITANDRESET STATEMtNT> 123 

/ <PROCURE STATEMENT> 12« 

/ <FIX STATEHEnT> 125 

/ -^LIBERATE STATEMENT> 126 

/ <FREE STATEMENT> 127 

68 <FORK STaTEMENT> ll» FORK <PROCEDURE STATENENT> [ <F0RK PARAMETERS> ] 73 128 

69 <FUNCTIUN DESIfiNATOR> ll> <FUNCTION IDENTiFIEH> 129 

<ACTUAL PARAMETER PART> 130 

70 <I/0 STATEMENT> tl« <CLOSE STATEMENT* 131 

/ <LOCK STATEMENT* 132 

I <READ STATEMENT> 133 

/ <REWIN0 STATEMENT* 13« 

/ <SEEK STATEMENT* 135 

/ <SPACE STATEMENT* 136 

/ <MRITE STATEMENT> 137 

71 <INTERRUPT STATEMENT* ll« <ATTACM STATEMENT* 138 

/ <DETACH STATEMENT* 139 

/ <ENABLE STATEMENT* 140 

/ <DISABLE STATEMENT* 141 

72 <0N STATEMENT* U» ON <FAULT NAME* 142 

/ ON <FAULT NAME> » <STATEMENT> 142 9 

73 <PROC£DURE STATEMENT* !«• <PROCEDURE IDENT1FIER> 44 

<ACTUAL PARAMETER PART* 130 

74 ^REPLACE STATEMENT* «l» REPLACE <DE5TINATI0N* BY <S0URCE LIST* 143 144 

75 <SCAN STATEMENT* !!■ SCAN <SOURCE* <SCAN PART* 145 146 

76 <UNCONOITIONAL ITERAT10N> «l» <D0 STATEMENT* 147 

/ <ITERATI0N CLAUSE> 106 
<UNC0ND1T10NAL STATEMENT* 29 

77 <LOCAL UR Ot<N TYPE* U" <TYPE* 56 

/ OWN <TYPE> 56 

78 <ARRAY SE6MENT> M» <ARRAY IDENTIFIER* <ADDRE5S PART* [ <bOUNO LIST* ] 148 84 1<I 
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/ <ARR*Y IDENTIFIER> <AD0RE:SS PART> , 
<ARRAY SE6MENT> 

79 <IN1TIALIZE0 ARRAY> ll« <ARRAY IDENTIF1ER> <R£PLACEHENT 0PERAT0R> ( 

<CONSTANT L1ST> ) 

80 <OtFlNlTiaN> »•■ <DEFINED IDENTIF1ER> <F0RMAU SYMBOL P*RT> ■ <TEXT> # 

81 <lOENTIfIER> tt« <LETTER> 

/ <identifier> <letter> 

/ <IDENTIFIER> <DiaiT> 

82 <CLOStD TEXT LIST> ««« <CLOSEO TEXT> 

/ <CLOSEO TEXT LIST» i <CLOSED TEXT* 

83 <EVENT IUENTIF1ER> ««« <IDENTIFIER> 
8-1 <AODRES& eART> It" <EMPTY> 

/ ■ <AOORESS> 

85 <EVENT LIST> U» <EVEnT DESIGNAT0R> 

/ <EVENT U1ST> » <EVENT 0ES1GNAT0R> 

86 <t(/ENT i)EaMENT> !«■ <EVENT ARRAY LIST> t <BOUhD LlST> J 

87 <FIELU PAHT> M> <FIELD IDENTIFIER* « <FIELD> 

88 <F1LE LIST PART> M« <FILE DESIGNATOR* 

/ <F1LE OESIGNATOR> ( <IMT1AL ATTRIbUTE LIST> ) 

89 <INTEKRUPT IDENTIFIER* ll» <IOENTIFIER> 

90 <LABEL IDEnTiF1ER> »«» <IDENTlFiER> 

91 <i.AYOUT PART* »l. <LAYOUT IDENTIFIER* ( <LAYOUT ITfcM LIST* 3 

92 <M0NIT0KED ITEM* lie <SIMPLE VARIABLE* 

/ <ARRAY IDENTIFIER* 

93 <PICTURt PART* t!» <PICTURE IDENTIFIER* t «PICTURE> ) 

94 «FORMAL PARAMETER PART* «l« <EMPTY* 

/ ( <FORMAL Parameter list* ) > 

<VALUE PART* <SPEClFICATlON PART* 

95 <8UEUE ARRAY IDENTIFIER* U" <IOENTIFIER» 

96 <INTEKNAL NAME PAHT> ll« <EMPTY> 

/ t <SECOND NAME* <ADORESS PART* 

97 <ARITMMETIC EXPRESSiaN> ll« <CONDITIONAL ARITHMETIC EXPRESSION* 

/ <ARITHMETIC ASSIGNMENT* 

/ <SIMPLE ARITMHETIC EXPRESSION* 

/ <HORD EXPRESSION> 

98 <ENTRY DESCRIPTION* II- ( <ENTRY ITEM LIST> ) I <VALUE PART* » 

<SPECIFICAT10N PART> 

99 <AL60RITHM PART* M» <EMPTY* 

/ USING <ALGURITHM LIST> 

100 <auEUE IDENTIFIER* II" <IDEnTIF1ER* 

101 <jYPE PART* II" <TYPE IDENTIFIER* <ADDRESS PART> 



148 


84 


78 




148 


103 


104 




33 


150 151 


152 




81 


152 


81 


153 


154 




82 


154 


81 




64 




155 




156 




85 


156 


157 


149 


158 


159 


160 




160 


161 


81 




81 




162 


163 


164 




148 




165 


166 


64 




167 




168 


169 


81 




64 




170 


84 


171 




172 




173 




174 




175 


168 


169 




64 




176 




81 




177 


84 
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f <TYPE IOEnTIFIB*<> <REPLACEMENT 0PERAT0R> 177 103 

<INITIAL VALUE> 178 

102 <VALUE ARRAY 10ENTIFlER> ll» <IDENTIF1ER> 81 

103 <REPLACtMENT 0PERAT0R> H« ♦ 

/ t ■ 
/ ♦ • 
/ I ■ • 

104 <CONSTANT UIST> W* <C0NSTANT> 

/ <constant list> * <constant> 

105 <bqotean expression> lia <c0nditi0nal boolean expression> 

/ kboolean assignnent> 

/ <sihple boolean expression> 

/ <hord expression> 

106 <ITERAT10N CLAUSE> ii« <MHILE PART> OQ 

/ <FOR CLAUSE> DO 
/ <THRU CLAUSE> DO 

107 <ARITHMETIC ASSIGNMENT STATENENT> tt« <ARITHMCTIC ASSIGNHENT> 

/ <ARITHMEnC FIELD ASSI6NHENT> 

108 <ARRAT ASSIGNMENT STATEHENT> It* KARRAY ASSIGNMENT> 

/ <ARRAY FIELD ASSIGNMENT) 

109 <BOOLEAN ASSIGNMENT STATEMENT) tt> <BOOLEAN ASSlGNMCNT> 

/ <BOOLEAN FIELD ASSIGNMENT) 

110 <guEUE ASSIGnMEnT> il> <aUEUE DESIGNATOR* ^REPLACEMENT OPERATOR) 

<REFerENCE EXPRESSION) 
^^^ <REFEREnC£ ASSIGNMENT) t>« <REFERENCE VARIABLE) <REPLACEMEnT OPERATOR) 

<REFERENCE EXPRESSION) 

112 <HORO ASSIGNMENT) ll> <H0RD VARIABLE) <REPLACEMENT OPERATOR) 

<EXPRESSI0N> 

113 <GQ TU STATEMENT* ti" GO <T0 PART) <DESIGNATI0NAL EXPRESSION) 

/ GO <T0 PART> <CASE MEAD) t 

<DESIQNATI0NAL EXPRESSION LIST> ) GO <T0 PART) 
<HORD VARIABLE* 

114 <DUHMY STATEMENT) «!■ <EMPTY) 

/ <OUMMY STATEMENT) <LAbEL) I 
lis <CASE STATEMENT) lt> <CASE HEAD* cCOMPOUND STATEMENT) 
116 <SET STATEMENT* tt> SET ( <EVENT DESIGNATOR* ) 
^^^ <RESET STATEMENT) li> RESET ( <EVENT DESIGNATOR) ) 

118 <CAUSE STATEMENT) H* CAUSE ( <EVENT DESIGNATOR) ) 

119 <CAUSEANDRESET STATEMENT* »>■ CAUSENRESET ( <EVENT DESIGNATOR) ) 

120 ■SMAIT STATEMENT) S!s <SAITONEVENT STATEMENT) 

/ <WAIT0NTIME STATEMENT) 









179 
























































103 








103 








103 






195 


196 


195 


197 


198 


195 












63 
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200 
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121 <HAITANURESET STATEMEnT> I1« <WA ITANORESET-SIMPLE STaTEMEKT> 201 

/ <«AITANDRESET-COMPLEX STATEMtNT> 202 

122 <oswAiT STATEMEnT> ««■ <0SWAIT-S1mPLE STATEMEnT> 203 

/ <DSWAIT-C0MPLEX STATEMENT> 204 

123 <uSWAiTANDRESET STATEMENT> »1« <DSWAITANDRESET»SIMP|.E STATEMENT> 205 

/ <OSWAlTANDRESET*COMPLEX STATEMENT> 206 

124 <PROCuRt STATEMENT> tt« PROCURE ( <EVENT OESIGNATOR> ) 156 

125 <FIX i>TATtMENT> II- FIX ( <EVENT 0ESIGNAT0R> ) 156 

126 <LlBEHATE STaTEMENT> ll» LIBERATE ( <EVENT DESI6NAT0R> ) 156 

127 <FREE STATEMENT> U« FREE ( <EVENT 0ESI6NATDR> ) 156 

128 <FgRK PARAMETERS* ll» <STACK SIZE> # <PRlORnY> <VlSlBlE NAME INDEX> 20? 208 209 

129 <FyNCTIUN IDENTIFIER* «i« <1D£NTIFIER> 81 

130 <ACTUAL PARAMETER PART> ll« <EMPTY> 64 

/ ( <ACTUAL PARAMETER LIST> ) 210 

131 <CLOSt STATEMENT* M" CLOSE £ <FILE DESIGNATOR* ) 160 

f CLOSE { <FILE DESIGNATOR* » <CLOSE OPTION* ) 160 211 

132 <i.UCK STATEMENT* lt« LOCK { <F1LE DESIGNATOR* ) 160 

/ LOCK C <FILE DESIGNATOR* » • ) 160 

133 <READ STATEMENT* Jl« READ ( <FILE PART* » <WORD COUNT* , <I/'0 AREA* ) 212 213 214 

<I/0 FINISH EVENT* 215 

134 <kEMInD STATEMENT* M* REMIND ( <FILr DESIGNATOR* ) 160 

135 <S£EK STATEMENT* II- SEEK ( <riLE DESIGNATOR* I <REC0R0 NUMBER* 1 ) 160 216 

136 <sP/kCt STATEMENT* M» SPACE ( <FILE DESIGNATOR* . 160 

<ARITHMETIC EXPRESSION* ) 97 

137<«RIT£ STATEMENT* It- WRITE ( <FILE PART* » <WORD COUNT* » <I/0 AREA* 212 213 214 

) <I/0 FINISH EVENT* 215 

138<ATTACM STATEMENT* It- ATTACH <INTERRUPT IDENTIFIER* TO 89 

<EVENT DESIGNATOR* 156 

139 <0£TACM STATEMENT* 11- DETACH <INTERRUPT IDENTIFIER* 89 

140 <ENABLE STATEMENT* ll» ENABLE <INTERRUPT IDENTIFIER* 89 

141<DlSABLk. STATEMENT* M- DISABLE <INTERRUPT IDENTIFIER* 89 
142 <FAULT NAME* It- ANYFaULT 

/ BOTTOMOFSTACK 

/ EXPONENTOVERFLOH 

/ EXPQNENTUNOERFLON 

/ INACTIVE&UEUE 

/ INTEGEROVERFLOn 

/ INVALIOADORESS 

/ INVALIOINDEX 

/ INVALIOOP 

/ INVALIDPROGRAMHORD 
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/ LOOP 

/ MEMQRYPARITY 

/ MEMORtPROTECT 

/ PR06RAHME00PERATQR 

/ SCANPARITt 

/ SEgUENCE 

/ stackoverflow 
/ stackunderflom 

/ STrINGPRQTECT 

/ ZERQOIVIDE 

143 <DESTINATION> tt> <UPDATE POInTER> <P0INTER EXPRESSI0N> 217 218 

lAA <SOURCE LIST> tt> <SOURCE PART> 219 

/ <SOURCE PART> , <SOURCE L1ST> 219 144 

145 <SQURCE> lt> <POINTER SOURCE> 220 

/ <ARITHMETIC SOURCE* 221 

146 <SCAN PART> ll« <SCAN COUNT* <C0NDIT10N> 222 223 

/ <CONDITIDN> 223 

147 <0Q STATEMENT* ll« DO <STATEMENT> UNTIL <BOOLEAN EXPRESSION* 9 105 

148 <ARRAY IDENTIFIER* ll« <IDENTIFIER> 8l 

/ <ARRAY INTRINSIC* 224 

149 <B0UND list* II> <B0UND> 225 

/ <BOUND LIST* * <BOUND* I'l^ 225 

150 <FORMAL SYHBOL PART* H« <EMPTY* 6< 

/ C <FORMAL SYMBOL LIST* > 226 

151 <TEXT> I •■ 

i ANY SEQUENCE OF VALID <CHARACTER*S NOT INCLUDING 
A FREE i i 

152 ^LETTER* II* A 

/ B 

/ C 

/ D 

/ E 

/ F 

/ G 

/ M 

/ I 

/ J 

/ K 

/ L 

/ M 

/ N 
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/ Q 

/ P 

/ 

/ R 

/ 5 

/ T 

/ 

/ V 

/ H 

/ X 

/ Y 

/ z 

153 <UIUIT> tl» 

/ I 
/ 2 
/ 3 
/ 4 
/ 5 
/ 6 
/ 7 
/ 8 
/ 9 

154 <CLQSED TEXT> Its 

< AN ACTUAL TEXT NOT CONTAINING 

UNMATCHED BRACKETING SYMBOLS OR UNBRACKETED COMMAS 

> 

155 <AODRtSS> tt> <IOENTiFIER> 81 

/ <AOORESS C0UPLE> 227 

/ <1D£NTIFIER> <a0DIN6 0PERAT0R> <UNSI6NED 1NTEGER> 81 228 229 

156 <EVENT UESIGnaTOR> lis <EVEnT IDENTiriER> 83 

/ <EVEnT ITEM> 230 

/ <EVENT ARRAY IDENTiriER> t <SUBSCr1PT LIST> ] 231 232 

/ <EVENT array ITEM> I <SUBSCRIPT LIST> ] 233 232 

157 <EVLNT array LIST> ««■ <EVENT array IDENTIFIER> <ADDRESS PART> 231 84 

/ <EVEnT array LIST> , <EVENT ARRAY IDENTIFIER> 157 231 

<AD0RESS PART> S4 

158 <FIELU IDEnTiFIER> ««■ <IDENT1FIER> 81 

159 <fIELU> lla <ARITMMETIC EXPRESSI0N> I <ARITHMETIC EXPRESSION> 97 97 

160 <FILE DtSlGNATOR> »«« <FILE IDENT1F1FR> 234 

/ <DIRECT file IDENTIFIER> 235 

161 ^INITIAL ATTRIBUTE LIST> «l« <INITIAL ATTRIBUTE> 236 
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/ <1NITIAL ATTRIbUTE LIST> . 161 

<1NITIAL ATTRIBUTE> 236 

162 <LAYOUT IDENTlFlER> ««■ <1DENTIFIER> 81 

163 <LAYDUT ITEM LIST> M. <LAYOUT ITEM> 237 

/ «LAY0UT ITEM LIST> • <LAYOUT ITEM> 163 237 

164 <S1MPLE VARIABLE> l«« <IDENTIF1ER> 81 

165 <PKTUR£ I0£NT1F1ER> tt« <IDENTIFIER> 81 

166 <PICTURt> !»■ <PICTURE SYMBOL> 23fl 

/ <PICTURE> <PICTURE SYMBOL* 166 238 

167 <FQRMAL PARAMETER L1ST> «!« <FORMAL PARAMETER* 239 

/ <FORMAL PARAMETER LIST> 167 

<PARAMETER DELIMITER* <FORMAL PARAMETER* 240 239 

168 <VALUE Part* II> <EMPTY* 64 

/ VALUE <10ENTIFIER LIST* } 241 

169 <SPEC1FICATI0N PART* tl« <SPEC1F1CATI0N* 242 

/ <SPECIFICATION PART* I <SPECIF1CATI0N> 169 242 

170 <SECONO NAME* lt« KlOENTIFIER* 81 

171 <CON01TI0NAL ARITHMETIC EXPRESSION* tt« <IF CLAUSE* 61 

<ARITMMETIC EXPRESSION* ELSE 97 
<ARITHMET1C EXPRESSION* 97 

172 <ARITHMETIC ASSIGNMENT* !«« <AR1TMMETIC VARIABLE* 243 

<REPLACEMENT OPERATOR* 103 
<ARITHMETIC EXPRESSION* 97 

173 <SIMPLE ARITHMETIC EXPRESSION* II- <SIMPLE ARITHMETIC EXPRESSION* 173 

<ADDIN6 OPERATOR* <TtRM> 228 244 

/ <UNARY OPERATOR* <TEt<M* 245 244 

/ <TERM* 244 

174 <MORD EXPRESSION* !)■ <HORO ASSIGNMENT* 112 

/ <MQRD VARIABLE* 193 

/ <NORD ITEM* 246 

/ <IF Clause* <hord expression* elsl 61 174 

<HORD expression* 174 

/ MORD ( <MOST expressions* ) 247 
/ <FUNCTI0N designator* 69 

/ <CASE HEAD* ( <NORD EXPRESSION LIST* ) 197 248 

/ ( <MORD EXPRESSION* ) 174 

175 <ENTRY ITEM LIST* ll» <ITEM LIST* <INVISIBLE ITEM LIST* 249 250 

176 <ALG0RITHH list* lt« <AL60RITHM* 251 

/ <ALG0RITHM* I <ALG0RITHM list* 251 176 

177 <TYPE IDENTIFIER* II- <IDENTIF1ER* 81 
178<{NITIAL VALUE> It- <EXPRESSI0N* 194 
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179 <CONSTANT> »»■ <NUMBER> 252 

/ <LOGieAL VALU£:> 253 

/ <STRINS> 25fl 

/ ^CONSTANT EXPR£SSION> 255 

/ <UNSI6NED INTEaER> ( -sCONSTAisT LIST> ) 229 104 

180 <C0NDITI0NAL BOOLEAN EXPRESSION* Jl» <!F ClAUSE> <B00LEAN EXPRESSION* 61 105 

ELSE <BOOLEAN EXPRESSION* 105 

181 <BOOLEAN ASSIGNMENT* II* «800LEAN VARIABLE* <REPLAC£MENT OPERATOR* 256 103 

<BOQLEAN EXPRESSION* 105 

182 <5IMPLE BOOLEAN EXPRESSION* >!■ <IHPLICAT ION* 257 

/ <S1MPLE BOOLEAN EXPRESSION* EOV 182 

<IMPLICATION* 257 

183 <i<HILE Part* M« while <aOOLEAN EXPRESSION* 105 

184 <FOR CLAUSE* t!« FOR ^CONTROLLED VARIABLE* <REPLACEMENT OPERATOR* 258 103 

tFOR PART* 259 

185 <TMRU CLAUSE* U« THRU <ARITHMETIC EXPRESSION* 97 

186 <ARITMI>I£TIC FIELD ASSIGNMENT* ll« <ARITMMETIC VARIABLE* . 243 

<FIELO IDENTIFIER* 158 

^REPLACEMENT OPERATOR* 103 
<ARITMMETIC EXPRESSION* 97 

187 <ARRAif ASSIGNMENT* »«« <A8RAf OtSIGNATGR* <RtPLACEn£NT OPERATOR* 260 103 

<ARRAY EXPRESSION* 261 

188 <ARRAt FIELD ASSIGNMENT* !*■ <ARRAY OESISNATQR* « <FlELD IDENTIFIER* 260 158 

<REPLACEMENT OPERATOR* 103 
<ARITMMET1C EXPRESSION* 97 

189 <800LEAN FIELD ASSIGNMENT* t«« <BOOLEAN VARIABLE* « <FIELD IDENTIFIER* 256 158 

<REPLACEMENT OPERATOR* 103 

<800L£AN EXPRESSION* 105 

190 <auEUE DESIGNATOR* t!« «ayEUE IDENTIFIER* 100 

/ <SU£UE ARRAY IDENTIFIER* I 95 

^ARITHMETIC EXPRESSION* 1 97 

191 PREFERENCE EXPRESSION* ll« NULL 

/ ^REFERENCE ASSIGNMENT* 111 

/ <IF CLAUSE* <REF£RENCE EXPRESSION* ELSE 61 191 

«REFEREKCE EXPRESSION* 191 

/ <REFEREnCE variable* 192 

/ <ENTRY EXPRESSION* 262 

/ <fiUEUE DESIGNATOR* 190 

/ REFERENCE ( <VARIABLE» } 263 
/ •^FUNCTION OESSft^ATQR* 69 

/ <mRQ EXPRESSION* 174 



263 
263 
266 



64 



269 
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/ ( <REFERENCE EXPRESSION* ) 191 

/ <REFERENCE ITEM> 264 

/ <CASE MEAD> ( <REFER£NCE ExPHESSION LIST> 197 265 
) 

192 <REFERENCE VARlABLE> !»■ <VARIABLE> 

193 <MORO VARIABLO tl> <yARlABLe> 

194 <EXPRESS>ION> il> <G£NERAL COMPONENT* 

/ <AR1THMET1C EXPRESSION* '^ 

/ <ARRAY EXPRESSION* 2*^ 

/ <boolean expression> *°^ 

/ <case expression* ^^' 

/ <C0ND1TI0NAL expression* 268 

/ <DESiaNATIONAL EXPRESSION* 1'* 

/ <POINTER EXPRESSION* ^^^ 

/ PREFERENCE EXPRESSION* ^'^ 

/ <WORD EXPRESSION* ^^^ 

195 <T0 PART* H» <EMPTY> 

/ TU 

196 <DESI(iNATlQNAL EXPRESSION* M« <LABEL DESIGNATOR* 

/ <CASE HEAD* ( ^''^ 

<DES1GNATI0NAL EXPRESSION LIST* ) 196 

<C0NDITI0NAL DESIfiNATIONAL EXPRESSION* 270 

197 <CASE MEAD* M« CASE <ARITMMETIC EXPRESSION* OF 97 

198 <0ESI6NATI0NAL EXPRESSION LIST* M- <DESIGNATIONAL EXPRESSION* 196 

/ <DESI6NATI0NAL EXPRESSION LIST* 198 
» <0ESI6NATIDNAL EXPRESSION* 196 

199 <WAITUNEVENT STATEMENT* «l« <WAlTONEVENT-SIMPL£ STATEMENT* 271 

/ <NA1T0NEVENT-C0MPLEX STATEMENT* 272 

200 «HAITQNTIM£ STATEMENT* ll« WAIT ( ( <TIME* ) ) 

201 <«AITAN0RESET-S1MPLE STATEMENT* 11- MAITANDRESET ( <EVENT DtSIGNATQR* 

) 

202 <HAITANQRESET-COMPLEX STATEMENT* II" MAITANDRESET I 

<WAIT PARAMETER LIST* ) 274 

203 <DSHAIT-SIMPLE STATEMENT* M- OSWAIT ( <EVENT DESIGNATOR* ) 156 

204 <0SHAn-C0MPLEX STATEMENT* H« DSlKAlT ( <WAIT PARAMETER LIST* > 274 

205 <OS«AITANDRESET-SIMPLE STATEMENT* ll« DSWAITANDRESET ( 

<EVENT DESIGNATOR* ) 156 

206 <0S*(A1TAN0RE5ET-C0MPLEX STATEMENT* H« OSHAITANORESET C 

^^*TT PARAMETER LIST* ) 274 

207 <STACK SIZE* U- <ARITHMETIC EXPRESSION* 



273 
156 



97 
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208 <PHIUKITT> U» <ARITMMET1C EXPRESSION> 97 

209 <vISIBLt NAME iNDtX> II" <EMPTt> 64 

/ . <ARITHMETIC tXPRtSSION> 97 

210 ^ACTUAL PARAMETER LIST> ««« <ACTUAL PARAMETER> 275 

/ <ACTUAL PARAMETER LIST> 210 

<PARAMfTER DEL1HITER> <ACTUAL PARAMETER> 2«0 275 

211 <CLOSL UPTION> tl« * 

/ PURGE 
/ REEL 

212 <HLE PART> iia <F1LE DESIGNATOR> 160 

/ <FILE OESI(iNATOR> 160 

<RECORO NUMBER OR CARRIAGE CUNTROL> 276 

213 <wURD CUUNT> ll« <ARITMMETIC EXPRESS10N> 97 

214 <i/U ARtA> JJ» <ARRAY ROW> 277 

/ <PU1NTER EXPRESSION> 218 

/ <SUBSCRIPTED VARlAeLE> 278 

215 <i/0 MnISM EVENT> «I« <EMPTT> 64 

/ [ <EVENT DESIGNAT0R> ] 156 

216 <R£COHD NUM8ER> ll« <ARnMMETlC EXPRESSI0N> 97 

217 <uPDATE PU1NTER> M» <EMPTY> 64 

/ <POInTER I0ENTIFIER> I 279 

21^ <P0INTEK EXPRES5I0N> U« <C0NDITI0NAL pointer EXPRESSI0N> 280 

/ <SIMPLE POINTER EXPRESSION> 281 

219 <5UUKCt PART> l|« <SOURCE> <TRANSFER PART> 145 282 

/ <STRING> <TRANSFfR PART> 254 282 

/ <ARITHMETIC SUURCE> <ARITHMETIC TRANSFER PART> 221 283 

/ <STRING> 254 

220 <poinTER S0URCE> U« <UP0ATE P01NTER> <P0INTER EXPRESSI0N> 217 218 

221 <AKIThMtTIC SQURCE> ««« <UPDATE VARIABLE> <ARITHMETIC EXPREJ»S1DN> 284 97 

222 <stAN CUUNT> Its FOR <UPDATE COUNT> <ARITMMETIC EXPRESSI0N> 285 97 

223 <CUNDlTiON> II- WHILE <RELATlONAL OPERATOR> <ARITMMETiC EXPhESSION> 286 97 

/ UNTIL <RELATIONAL nPERATOR> <ARITHMETIC EXPRESSION> 286 97 

/ UNTIL IN <TABLE> 287 

/ WHILE IN <TaBLE> 287 

224 <ARRAY InTHInSIO «l» M 

/ MEMORY 

/ REGISTERS 

/ STACK 

/ STACKVECTOR 

/ HORDSTACK 

225 <BUUNU> ti> <mORD C0UNT> 213 
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/ • 

226 <FIJRMAL SYMBOL L1ST> »!■ <FORMAL SYMBOL> 288 

/ <FQRMAL SYMBOL L1ST> , <FORMAL SYMBOL> 22h 288 

227 <AOORtSS COUPLE> ll« ( <LEVEL> <DISPLACEMENT> ) 289 290 

228 <ADDING 0PERAT0R> II« ♦ 

/ - 

229 <UNSIbNED INTEGER> ««« <DIGIT> ^53 

/ <UNS1GNED InTEGER> <DI6IT> 229 153 

230 <EVENT ITEM> tl> <ITEM> 291 

231 <EVENT ARRAY IDENTIFIER> l«« <IDENTIFIER> 81 

232 <SUBSCRIPT L1ST> ll> <SUBSCR1PT> • 292 

/ <SUBSCrIPT L1ST> » <8UBSCRIPT> 232 292 

233 <E«ENT ARRAY ITEM> im <ITEM> 291 
23^ <FILE IUENTIFIER> H" <IDENTIF1ER> "1 

235 <oIRECT file IDENTIFIER> H« <1DENTIFIER> 81 

236 <IN1TIAL ATTRIBUTE> It- <F1LE ATTRIBUTE NAME> « <F1LE ATTRIBUTE VALUE> 293 294 

237 <LAYOOT 1TEM> tl- <LAYOUT FIELD> <F1ELD VAtUE PART> ?95 296 

238 <PICTURt 5YHB0L> ll» "<HEXADEC IMAL STRING>" 

/ "<BCL STRING>" 

/ »<ASCII STRING>" 

/ "<EBCDIC STRIN6>" 

/ <PICTURE CMARACTER> <REPEAT PART> 297 298 

/ <CONTROL CHARACTER> 299 

/ <INTR00UCTI0N> 300 

/ <SKIP CMARACTER> <REPEAT PART> 301 298 

/ <SINGLE PICTURE CHARACTER> 302 

239 <FORMAL PARAMETER> «l« <IDENTIFIER> 81 

240 <PARAMETER DELIHITER> >*> * 

/ ) 

"SANY SEOUENCE OF LETTERS AND SINGLE SPACESJ" 
( 

241 <IDENTIFIER LIST> U» <IDENTIFIER> 81 

/ <IDENTIFIER LIST> » <IOEnTIFieR> 241 81 

242 <SPECIFICATI0N> tl» <SPEC1F1ER> <1DEnTIFIEB LIST> 303 241 

/ <ARRAY SPECIFICATI0N> 304 

243 <AR1THMETIC VARIABLE* tl" <VARIABLE> 263 

244 <TERM> tl« <FACT0R> '°^ 

/ <TERM> <MULT1PLYING OPERATOR* <FACT0R> 244 306 305 

245 <UNARY OPERATOR* ti« <AD0IN6 OPERATOR* 228 
2*6 <tiiORD ITEM* tl* <ITEM> 291 

247 <most expressions* 1 1" <arithmetic expression* 9^ 
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/ <BOOLEAN EXPRESSI0N> 105 

/ <fiEFERENCE EXPRESS10N> 191 

/ <*RRAY EXPRESS1DN> 261 

248 <H(URD EXPRESSION LIST> »t« <HOR0 EXPRESS10N> 171 

/ <WORO EXPRESSION LIST> , 248 

<WDRD EXPRESS10N> 174 

^^^ <ITEM L1ST> Jl« <ITEM IDENTIFIER> 307 

/ <ITEM HST> <PARAMETER DELIMnER> <ITEM lDENTiriER> 249 240 807 

250 <INVISIBLE ITEM LIST> tt« <ITEM LIST> 249 

251 <aLGORIThM> tf» <B00l.EAN ALGORITHM IDENTIFIER> IF <B00LEAN EXPRESSI0N> 306 105 

/ <REFERENCE ALGORITHM IOENTIFIER> IS 309 

<REFERENCE EXPRESSI0N> 191 

/ TO <AL60RITHM I0ENTIFIER> * <STATEMENT> 310 9 

/ <LCCK SPECIFICATION> 311 

/ <INTEGER ALGORITHM IDENT1FIER> » <STATEMENT> 312 9 

252 <NUMBER> ««■ <SIGN> <UNSI6NE0 NUMBER> 313 314 

253 <L0GICAL WALUE> M« TRUE 

/ FALSE 

254 <STRING> II- <SIMPL£ STRING> 315 

/ <STRING> <5rMPLE STRlNO 254 315 

255 <CUNSTANT £XPeESSICN> M> 

SAN EXPRESSION MHICH CAN BE ENTIRELY 
EVALUATED BY THE ESPOL COMPILER AT COMPILE 

Time i 

25^ <BaOLEAN VARIABLE> Ub <VARIABLE> 263 

257 <IMPL1CATI0N> tt« <BOOLEAN TERM> 316 

/ <IMPLICATI0N> IMP <BOOLEAN TERM> 257 316 

258 <CQnTR0LLEU VARIABLE> tl« <SlMPLE VARIABLE* 164 

/ <SUBSCRIPTED VARIABLE* 278 

259 <FOR KART> ll» <INIT!AL PART> <STEP PART> «FINAL PART> 317 318 319 

260 <ARRAY UESIGnATQR* II> <ARRAT IDENTIFIER* <SUBARRAY DESI6NAT0R> 148 320 

/ <ARRAY VARIABLE* 321 

2^1 <ARRAY EXPRESSION* ll« <ARRAY ASSIGNMENT* 187 

/ <ARRAY PRIMARY* 322 

/ <iF CLAUSE* <ARRAt EXPRESSION* ELSE 61 261 

<ARRAY EXPRESSION* 261 

262 <ENTRY EXPRESSION* ««. <OOEUE NAME* ( <ACTU»L ITEM LIST> 3 323 324 

263 <VARIA8l.E> «»■ <SIMPLE VARIABLE* 164 

/ <SUBSCRIPTED VARIABLE* 278 

264 <REFERENCE ITEM* M« <ITEH> 291 

265 <REFEKENCE EXPRESSION LIST* »«■ <REFERENCE EXPRESSION* 191 
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325 

263 



/ <REFEREnCE expression LIST> , 265 

<REFERENCE EXPRESS!ON> i9i 

266 <QENEHAU COMPONENT> «l« <BASIC COMPONENT> 

/ <VARUBLE> 

/ <ITEM designator* 326 

/ «VALUE DESIfiNATOR> 327 

/ <EVENT DESIGNATOR* ^^^ 

/ <INTRINS1C> 328 

267 <CASE EXPRESSION* l>- <CASE MEAD> ( <EXPRESSION LIST> ) 19? 329 

268 <CUNDlTIONAL EXPRESSION* M- kCONOITIONAL ARITHMETIC EXPRESSION* 171 

/ <C0N0IT1QNAL boolean expression* 180 

/ <C0N0ITI0NAL DtSIGNATIONAL EXPRESSION* 270 

/ ^CONDITIONAL POINTER EXPRESSION* 280 

269 <LABEL DESIGNATOR* ««• <LABEL IDENTIFIER* '° 

270 <C0NDIT10NAL OESIGNATIONAL EXPRESSION* «»- <1F CLAUSE* 61 

<0ESI6NATI0NAL EXPRESSION* 196 

ELSE 

<DESI6NATI0NAL EXPRESSION* 196 

271 <WAITUNEWENT-SIMPLE STATEHENT* It- t<AlT ( <EVENT DESIGNATOR* ) 156 

272 <l*AITON£VENT-CQNPLEX STATEHENT* II- WAIT ( <WAIT PARAMETER LIST* > 274 

273 <TIHE* II" 

STHE HINIMUM AMOUNT OF TIME IN SECONDS 

( FRACTIONAL SECONDS ALLOWED ) THAT A TASK IS TO BE 

SUSPENDED 2 

274 <»(AIT PARAMETER LIST* II" <EVENT LIST* '^ 

/ { <TIME> ) • <EVENT LIST* 273 85 

275 <ACTUAL PARAMETER* ll« <EXPRESSION> ^'* 

/ <PROCEOURE IDENTIFIER* ** 

/ <EVENT DESIGNATOR* ^56 

276 <RECORD NUMBER OR CARRIAGE CONTROL* !•• t <ARITMHET1C EXPRESSION* ] 97 

/ I LINE 

<ARITMMET1C EXPRESSION* 1 97 
/ [ SPACE 

<ARITMMETIC EXPRESSION* 1 97 
/ [ SKIP 

<ARITHMETIC EXPRESSION* 1 97 
/ t STACKER 

<ARITMMETIC EXPRESSION* 3 97 
/ [ NO ] 

277 <ARRAY ROW* II- <ARRAY IDENTIFIER* i <ROW DESIGNATOR* 3 1«8 33° 

278 ^SUBSCRIPTED VARIABLE* II- <ARRAy IDENTIFIER* I <SUBSCRlPT LIST* 3 1«8 232 
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279 <PUINTEH lUENTIFItR> Jt« <10tNTlFlER> 81 

280 <CUNDiTiONAL PuInTEK EXPRESSIUN> ««« <l¥ CLAUSE? ^POINTER EXPRFSSION> 61 218 

ELSE <P01NTER EXPR£SSION> 218 

281 «SIMPLE POINTER EXPRESSIOK> ««« <POInTER PRIMART> <SKIP> 33I 332 

/ <P01NTER ASS1(.NHENT> 333 

/ <NQRD ARRAY ROW> 334 

/ <SuBSCRIPTED WORD VARIABLE? 335 

282 <TRANSFk.R PART> tl» <SCAN C0UNT> <C0HDITI0N> 222 223 

/ <C0NDITI0N> <FINAL COUNT> <UNITS> 223 336 337 

/ WITH <PlCTURE DESIGNATOR? 336 

/ <F1NAL COUNT? WITH <TRANSLATE TABLE? 336 339 

283 <AKITHMtTIC TRANSFER PART? ««« <DIGIT COUNT? 34O 

/ ^CORRECT COUNT? 34I 

/ <CORRECT COUNT? <C0NDITIUN? 341 223 

284 <uPOAlE VARIABLE? ««■ <EMPTY? 54 

/ <SIMPLE variable? I 164 

285 <uPDATE COUNT? M" <EmPTT? 64 

/ <SIMPLE VARIABLE? I 164 

286 <RELATiUNAL OPERATOR? I1« ? 

/ < 
/ « 
/ ? 
/ < 
/ # 
/ IS 

287 <TABLt? Il» <ARRAr ROW? 277 

/ <SUBSCKIPTE0 VARIABLE? 278 

288 <F0RMAL SYMBOL? M» <I0ENTIFlER? 81 

289 <le;vEL? «l» <UNSIfiNED INTEGER? 229 

/ - <UNSIGNED INTEGER? 229 

290 <UlSPl.ACEMENT? ll« <EmPTY? 64 

/ t <UNSIGNED integer? 229 

291 <ITEM? it- <ITEM IDENTIFIER? i* <REFERENCE EXPRESSION? 307 191 
- -duBw>rt*r i >- ii- ^wniinntilw LXPHEasiuN? 97 

293 <FILE ATTRIBUTE NAME? !!■ <ARITMMET IC-VALUED FILE ATTRIBUTE NAME? 342 

/ <BOOLEAN-VALUED FILE ATTRIBUTE NAME? 343 

/ <MNEMQNIC-VALUED FILE ATTRIBUTE NAME? 344 

/ <POINTER-VALUEO FILE ATTRIBUTE NAME? 345 

29^ <Fit.E ATTRIBUTE VALUE? Il« <C0NSTANT? 179 

/ <FILE ATTRIBUTE MNEMONIC VALUE? , 346 

295 <i.AY0UT FIELO? tt> <FlELD PART? 87 
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/ <FIELO> 159 

/ <FIELD IDENTIFIER> 158 

296 <FIELU VALUE P*RT> l»« <EMPTY> 64 

/ «REPCACEMENT 0PERAT0R> <UNSl{iNED INTEGER> 103 229 

297 <PJCTURL CHARACTER> »t" A 

/ 

/ E 

/ F 

/ 1 

/ e 

I R 
/ X 

« z 

/ 9 

298 <REPEAT PART> «l« <EMPTY> *" 

/ ( <UNSI6NE0 INTEGER> ) 229 

/ ( * ) 

299 <CL)NTKOL CHARACTER> ll> <» 

/ 6 
/ 7 
/ 6 
/ I 

300 <INTRUOUCTION> ll» <1nTR0DUCTI0N CODr> <NEW ChARACTER> 34? 348 

301 <SK1P CHARACTER> tl> > 

/ < 

302 <SIN6LE PICTURE CHARACTER> ««■ J 

/ S 

303 <SPECiFiER> !•• <TYPE> 56 

/ <PROCEDURE TYPE> PROCEDURE *« 

/ QUEUE 
/ EVENT 
/ PICTURE 

304 <ARRAY SPEC IFICAT10N> H- <DlRECT SPECIFIER> <ARRAY TYPE> ARRAY 39 349 

<ARRAY SPECIFIER LIST> 350 

305 <FACTOR> M« <PRIMARY> 351 

/ <PRIMARY> • <INTEGER> 351 352 

306 <MULTIPLYING 0PERAT0R> I I" *■ 

t <SLASH> 353 

/ DIV 
/ MOD 
/ MUX 
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307 <ITEM IUE;nTIFIER> t»" <IOENTIFIER> 81 

/ <ITEM> 291 

308 <800L£AN ALGORITHM IDENTIFIER> •«■ EMPTY 

/ FULL 

309 <RtFERENC£ ALGORITHM IDENTIFlER> l«« ALLOCITE 

/ NEXT 

/ LAST 

/ FIRST 

/ PRIOR 

310 <4LG0K1THM IDENTIFIER> »!■ INSERT 

/ REMOVE 
/ DELINK 
/ <1D£NT1FIER> 81 

311 <LOCK SPECIFICATI0N> «•« LOCKED 

/ LOCKED <aUEUE NAME* 323 

312 <INTEt.ER ALGORITHM IDENTIFIER* ll« POPULATION 

313 <S16N> U« <EMPTY> 64 

/ ♦ 
/ - 

31A <UN5ItiNE0 NUM8ER> tl« <DECIMAL NUMBER* <EXPONENT PART* 354 355 

/ <OeCiMAL NUMBER* 354 

/ <OCTAL NUMBER* 356 

315 «SIMPLE STRING* It* <NUMERIC STRING* 357 

/ <ALPHA STRING* 358 

316 <eOOLEAN TERM* tt> <BOOLEAN FACTOR* 359 

/ <800LEAN TERM* OR <BQeLEAN FACTOR* 316 359 

317 <lNlTiAL PART* !«■ ^ARITHMETIC EXPRESSION* 97 

318 <5TEP PART* ll« STEP <ARITHMETIC EXPRESSION* 97 

/ BY <ARITMM£TIC EXPRESSION* 97 

319 <FINAL PART* tia UNTIL <ARITHMETIC EXPRESSION* 97 

/ <»<HILE PART* 183 

320 <SUBARRAY DESIGNATOR* Il« <EMPTY* 64 

/ t <SUBSCRIPT PART* <SUBARRAY PART* ] 360 361 

321 <ARRAT VARIABLE* lt» <SIMPLE VARIABLE* 164 

/ <ARRAY ITEM* 362 

322 <ARRAT PRIMARY* li« <ARRAY DESIGNATOR* 260 

/ < <ARRAY EXPRESSION* ) 261 

/ <ARRAY PRIMARY* I <L»YDUT* 322 343 

/ <HORD EXPRESSION* 174 

323 <9UEUE NAME* It. <QUEUE IDENTIFIER* 100 

/ <8UEUE ARRAY IDENTIFIER* 95 
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210 
364 

el 



324 <ACTUAL ITEM |.1ST> »«« <ACTUAL PARAMETER LIST> 

325 <BASIC C0MP0NENT> I«» <BAS1C SYMB0L> 

/ <I0ENTIFIER> 

/ <NUMBER> ^'^ 

/ «STRIN6> . 2 . IDENTirURS 254 

326 <ITEM OESIGNATOR> tl« <AR1TMMETIC ITEM> 3*5 

/ <»(ORD ITEM> 246 

327 <VALUE 0ESIGNAT0R> ««■ <VALuE ARRAY 1DENT1FIER> C <SUBSCRlPT UIST> 3 102 232 

328 <1ntrinsic> ii- <array intrinsic> 224 

/ <function Intrinsic* 366 

/ <procedure intrinsic* 367 

/ <mord intrinsic* 368 

329 <EXPRESSION LIST* t»« <ARITHMETIC EXPRESSION LIST* 369 

/ <BOOLEAN EXPRESSION LIST* 370 

/ <0ESI6NATI0NAL EXPRESSION LIST* 198 

/ <POINTER EXPRESSION LIST* 371 

330 <RON DESIGNATOR* M> • 

/ <ROX* » • ^'^ 

331 «POINTER PRIMARY* M« <POINTER IDENTIFIER* 279 

/ ( <POINTER EXPRESSION* ) 218 

/ <CASE HEAD* ( <POINTER EXPRESSION LIST* ) 197 371 

/ <POINTER DESIGNATOR* 373 

332 <SKIP* li« <EMPTY* '* 

/ <AD0IN6 OPERATOR* <PRIMARY* 228 351 

333 <P01NTER ASSIGNMENT* II- <POlNTER VARIABLE* <REPLACEMENT OPERATOR* 374 103 

<POINTER EXPRESSION* 218 

377 

334 <MORD ARRAY ROM* II- <ARRAY ROW* 

335 <suBSCRlPTEO MORD VARIABLE* "l- <SUBSCRIPTED VARIABLE* 278 

336 <FJNAL COUNT* M- FOR <ARITHMETIC EXPRESSION* «' 

337 <UNITS* II- <EMPTY* 

/ MOROS 

/ OVERHRITE 

338 <PICTURE DESIGNATOR* 1 1- <PICTURE IDENTIFIER* <REPEAT PARAMETERS* 165 375 

339 <TRANSLATE TABLE* »»■ <TABLE* 

340 <DIGIT COUNT* tl- FOR <ARITMMETIC EXPRESSION* DIGITS 

341 <CORRECT COUNT* II- <SCAN COUNT* CORRECTLY 222 

342 <i^RiTMM£TlC-VALUED FILE ATTRIBUTE NAME* «»■ AREACLA5S 

/ AREAS 
/ AREASIZE 
/ ASSIGNTIME 
/ ATTVALUE 



64 



287 
97 
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/ ATTTPE. 


/ BLOCK 


/ BLDCKSIZE 


/ BUFFERS 


/ CENSUS 


/ COPIES 


/ CYCLE 


/ DATE 


/ DIRECTION 


/ DISPOSITION 


/ enableinput 


/ errortype 


/ FAMILYSI2E 


/ FILETYPt 


/ LASTRtCORD 


/ LASTSTATION 


/ LINENUM 


/ MAXtiENNO 


/ maxrecsize 


/ minrecsize 


/ NEXTRECQRO 


/ PAGE 


/ PA6ESIZE 


/ POPULATION 


/ RECEPTIONS 


/ RECORD 


/ REC0RDS2 


/ REEL 


/ ROWADDRESS 


/ ROWINUSE 


/ savefactor 


/ SECURITYTYPt 


/ SECURITYUSE 


/ SCREEN 


/ serialno 


/ SIZEMUDE 


/ SIZEOFFSET 


/ SIZE2 


/ SPEED 


/ STATE 


/ tapereelrecord 
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/ TRANSMISSIONO 

/ TRANSMISSIONS 

/ UNITNO 

/ UNITS 

/ UNITSLEFT 

/ USEDATE 

/ VERSION 

/ WIDTH 

343 <BOOLfcAN-VALUED FIUE ATTRIBUTE NAME> ««■ ATTERR 

/ BE&INATl 

/ BREAK 

/ COOEFILE 

/ COPIES 

/ CYLINDERMQDE 

/ DUfLICATED 

/ EOf 

• INTERCHANGE 

/ NULINPUT 

/ OPEN 

/ OPTIONAL 

/ PRESENT 

/ READCHECK 

/ RESIDENT 

/ S1N6LEPACK 

/ UPDATE 

344 <MNEM0NIC"VAUUE0 FILE ATTRIBUTE NAME> «l« DENSITY 

/ EXTMODE 
/ riLEKlND 
/ INTMODE 
/ KIND 
f LABELTYPE 
/ MYUSE 
/ OTHERUSE 
/ PARITY 
/ PROTECTION 
/ SECURITYTYPE 
/ SECURITYUSE 
/ SIZEHUUE 
/ SPEED 
/ UNITS 
3A5 <POINTER-VALUEO FILE ATTRIBUTE NAME> lt« FAMILY 
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/ rONH£SSAGE 
/ INTNAME 
/ TITLE 

346 <flLE ATTRIBUTE MNEMONIC VAl.UE> «l« <0ENSITY MNEMONIO 376 

/ <EftRORTYPE MNEM0NIC> 377 

/ <EXTMO0E MnENOnIC> 378 

/ kFILEKIND MNEMOnIC> 379 

/ <INTMQDE HNEH0NIC> 380 

/ <KIND MNEMONIO 3gl 

/ <LABELTYPE MNEMONIC> 382 

/ <MYUSE MNEMONIO 383 

f <OTHERUSE MNEMONIO 384 

/ <PARITY MNEMONIO 385 

/ <PROTECTION MNEM0NIC> 386 

/ <SECURITYTYPE MNEM0NIC> 387 

/ «SECURITTUSC MNEMQNlO 386 

/ <SIZEMODE MNEMQNlO 389 

/ <SP£ED MNEMONIO 390 

/ <5TATE MNEMONIO 391 

/< UN ITS MNEMONIC > 392 
3A7 <iNTRUDUCTIQN CD0E> lt» 8 

/ C 
/ M 
/ N 
/ P 
/ U 

348 <n£M CHAKACTER> II» <STRING CHARACTER> 393 

3A9 <ARRAY TYPE> tia <EMPTY> ^4 

/ <TYPE> 56 
/ EVENT 

350 <ARRAr SPECIFIER LIST> tie <ARRAY SPECIFIER* 394 

/ <ARRAY SPECIFIER LIST> , 35O 

<ARRAY SPECIFIER* 394 

351 <PRIMARY> Ma <UNSIGNED NUMBER> 314 

/ <3TRlNfi> 254 

/ <FIEl.D DESIGNATOR* 395 

/ <OPERANO> 396 

/ <PRIMARY> I <ARITHMETIC EXPRESSION* «C0NCATENAT10N> 35I 97 397 

/ <PRIMARY> I <LAYOUT> 35I 363 

352 <INTEftER> !!• <SiaN> <UNSI6NED INTEGER* 313 229 

353 <Sl.ASM> n» / 
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354 <utCIHAL NUH8ER> tl> cUNSIfiNCO INTEGER> <DECIMAL FKACTI0N> 

/ <UNSiaNEO INTEGER> 

/ <DECiMAL Fraction* 

/ <UNSIGNED INTEGER* « 
335 <EXPONENT PART> li« » <INTE6ER> 

/ % % <INTEGER> 

356 <OCTAL NUMBER* li> * <OCTAL CONSTANT* 

357 <NUMERIC STRING* «!■ <BINART CODE* <OOOTE> <B1NARY STRING* <QUOTE* 

/ <QUATERNARY CODE* <aUOTE* <QUATERNART STRING* 

<QUQTE* 
/ <OCTAL CODE* kOUOTE* <0CTAL STRING* <eUOTE* 
/ <MEXA0EC1MAL CODE* <8U0TE* <MEXADECIMAL STRING* 

<OUOTE* 

358 <*LPMA STRING* II" <8CL CODE* <OUOTE> <BCL STRING* <euOTE* 

/ <ASCII CODE* <QUOTE* <ASCII STRING* <QUOTE* 
/ <EBCDIC CODE* <OUOTE* <EBCDIC STRING* <eUOTE* 

359 <BOOLEAN FACTOR* ti> <BOOLEAN SECONDARY* 

/ ^BOOLEAN FACTOR* AND <BOOLEAN SECONDARY* 

360 <SUBSCRIPT PART* tl- <EMPTY* 

/ <SUBSCRIPT LIST* « 

361 <SUBARRAY PART* tta * 

/ <SUBARRAY PART* » • 
362<ARRAY ITEM* |l« <ITeM> 

363 <LAYOUT* ll« <LAYOUT IDENTIFIER* ( <F1ELD VALUE LIST* ) 
364«BASIC SYMBOL* II' <EMPTY* 

/ <character* 
/ <delimiter> 
/ ^logical value* 

365<ARITHMETIC ITEM* ll« <ITEM* 

366<funCTI0N INTRINSIC* H« «ARITMMETIC INTRINSIC* 

/ <BOOLEAN INTRINSIC* 
367 <PROCEDURE INTRINSIC* lt> ALLQN 

/ BUZZ 
/ DISALLON 
/ EXIT 
/ HEYOU 

/ no 

/ NOVESTACK 
/ PAUSE 
/ RETURN 
/ SCANOUT 



229 


398 






229 








398 








229 








352 








352 








399 








400 


464 


401 


464 


402 


464 


403 




464 








404 


464 


405 


464 


406 


464 


407 




464 








408 


464 


409 


464 


410 


464 411 


464 


412 


464 


413 


464 


414 








359 


414 






64 








232 








361 








291 








162 


415 






64 








416 








417 








253 








291 








418 








419 
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/ STOP 
/ STOREITEM 
/ TIMER 
/ TOUCH 

/ Zap 

368 <wOHO INTRINSIC> lj« TUPOFSTACK 

369 <ARlTHMtTlC EXPRESSION LlST> ti« <ARITHMETIC LXPR£SSION> 97 

/ <ARITHHETIC EXPRESSION LIST> » 369 

<ARITMMETIC EXPRESSION> 97 

370 <BUOLtAN EXPRESSION LlST> ll« <B0DLEAN EXPRESSI0N> 105 

/ <BOOLEAN EXPRESSION LIST> » 370 

<tiOOLEAN EXPRESSION> 105 

371 <P0INTEH EXPRESSION LlST> ««■ <P0INTFR EXPRESS10N> 218 

/ <P0INTER EXPRESSION LIST> , 371 

<PDlNTER LXPRESSI0N> 218 

372 <KUW> its <ARITmh£TIC txPRESSlON> 97 

/ <RUw> , <ARITMMETIC EXPRESSION* 372 97 

373 <PUINTER UE5ieNATQR> It. POINTER ( <P0INTER PARAMETERS> ) 420 
3^^ <PUINrER VARIABLE> ««■ <VAffrABLE> 263 
375 <wtpF4T P£HAMETERS> Sjs <EMPTY> 6* 

/ < <UNSI(,NED INTEGER L1ST> ) 421 

^'^ <UENS1TY MNEMQNIC> ««■ HIGH 

/ MEDIUM 
/ LOW 
/ SUPER 

377 <ERROKTYPE MNEMONIO II« NOERROR 

/ SUNOTREADY 

/ READPARITYERROR 

/ REAOCHECKFAlLUhE 

378 <EXTMUOt MNEMONIO «l« SINGLE 

/ BCL 
/ EBCDIC 

379 <FiLEKlNU MNEMOnIO «I» S YSTEHDIRECTOR Y 

/ VERSiONDIRECTORY 
/ OIRECTOHY 
/ CONTROLOECK 
/ BACkuPOISK 

/ reconstructionfile 
/ systemoirfile 
/ compilercode 
/ librarycodf 
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t inTrinsicfile 

/ MCPCODEFILf 

/ ALGOLCOUE 

/ COBOLCOUE 

/ FOKTRANCODE 

/ XALGOLCODE 

/ PLlCODE 

/ JQVIALCODE 

/ ESPQLCQUE 

/ DCALGOLCODE 

/ BASICCOOE 

/ XFORTRANCODE 

/ BOUNDCOOE 

/ COOEFILE 

/ AUGOLSYHBOL 

/ C060LSYHB0L 

/ FORTRANSYMBOL 

/ XALG0LSYH60L 

/ PLISYMBUL 

/ JOVIALSYMBOL 

( ESPOLSYMBOL 

/ DCALGOLSYHBOL 

/ BASICSYHBOL 

/ XFORTRANSYMBOL 

/ DATA 

380 <INTMUDt MNEMONIO ««• SINGLE 

/ BCL 

/ EBCDIC 

/ ASCII 

381 «KlNO MNEMONIO ll« DISK 

/ diskpack 

/ DISPLAY 

/ PAPER 

/ PAPERPUNCH 

/ PAPERREADER 

/ PETAPE 

/ PRINTER 

/ PUNCH 

/ READER 

/ REMOTE 

/ TAPE 
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/ TAfE? 
/ TAPE9 

382 <LAbELTYPt MnEMQnIO U« STANDAHO 

/ QMITTEU 
/ OMITTEDEOF 

383 <MYUSE MNEM0NIC> JJ« CLOSED 

/ IN 
/ OUT 
/ 10 

384 <QTHEKUi>E MNEMOnIC> JI« SECURED 

/ IN 
/ OUT 
/ 10 

385 <fJAHlTY MNEMONlC> M« STANDARD 

/ NONSIANDAKD 

386 *eHuTECTlON MNEMGNIC> tjs TEMPORARY 

/ SAVE 

/ Protected 

387 <SECUHITyTYPE HnEMONIC> ««« PRIVATE 

/ CLASSA 
/ CLASSB 
/ CLASSC 

388 ^StCUKITYUSE MNEMONlC> «i« SECURED 

/ IN 
/ OUT 
/ 10 

389 <SUEMUUE MNEMOnIC> >«« SINGLE 

/ HEX 

/ BCL 

/ EBCDIC 

390 <sPEEu MNEM0NIC> U« FAST 

/ MEDlUMTAST 
/ MEOIUMSLOW 
/ SLO"* 

391 <iTATL MNEM0NIC> U« NORMAL 

/ ATENO 

/ PARITYERROR 

/ DATA ERROR 

/ LDCKEDOUT 

/ NDINPUT 

/ BKEAKHERE 
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/ TIMEOUT 
/ N£MUS£R 



/ N£MUS£R 
392 <UNITS MNEM0N1C> H« WORDS 

/ CHARACTERS 
93 <STHlNe CHARACTER> «•■ <LETT£R> 



393 <STHlNe CHARACTER> «•« <LETT£R> 152 

153 
a22 
7 
423 42'» 
396 158 
322 158 
243 97 
425 

197 369 
426 427 
426 428 
427 
229 
429 
399 429 




/ ISO 

401 <(iINARY STRInG> M' <BINARY CHARACTER> 

/ <BlNARY STRING> <BlNARY CHARACT£R> 

402 <sjUATtRNARY CODE> >«• 2 



<SJUATtRNARY CODE> 

/ 20 
/ 24 
/ 26 
/ 28 



430 
401 430 
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/ 2*0 
/ 260 
/ 260 

403 «QUATLRNAHY STRIN6> lt« <8UATERNARY CHARACTER* 431 

/ «9UATERNARt STRING* «1UATERNARY CHARACTER* 403 431 

404 <0CTAL CUQE> tta 3 

/ 30 
/ 36 
/ 360 

405 <QCTAL ;>TRING> tt> <QCTAt. CHARACTER* 432 

/ <QCTAL STRING* <OCTAl CHARACTER* 405 432 

406 <HEXAUECIMAC CODE* >*• 4 

/ 40 

407 <HEXAgEClMAU STRIN6* M" <HEXADEC1MAL CHARACTER* 433 

/ CHEXADECIHAL STRING* 407 

<HEXADECIMAI. CHARACTER* 433 

408 <BCL COUE* n« <EMPTlf> 64 

/ 6 
/ 60 

409 <bCL STRING* ll» <agOTE> 464 

/ <Bri, CHARACTER* 434 

/ <BCL STRING* <BCt CHARACTER* 409 434 

410 <ASCII CODE* ll« 7 

/ 70 

411<ASC1I STRING* M» «bCL STRING* 409 
412 <EBC0IC CUOE* Ma a 

/ SO 

413<ttjC0IC STRING* ««• <8Cl. STRING* 409 

414 <BQ0|.£AN SECONDARY* II* <BOqUEAN PRIMARY* 435 

/ NOT <B00l.EAN PRIMARY* 435 

415<FIE1.0 VAUUE LIST* ii« 4:FIEI.D VAUUE* 436 

( <FIELO VALWE LIST* # <FIE1.0 VAI.U&* 415 436 

416 <CHARACTER* ti> <STRlNG CHARACTER* 393 

/ «STRIN6 BRACKET CHARACTER* 437 

/ <1NVAH0 CHARACTER* 438 

^^'' <OELIMITER* n* <BRACkET* «39 

/ ^DECLARATOR* 440 

/ <0PERAT0R* 441 

/ ^SEPARATOR* 442 

/ <5PECiriCAT0R» 443 
418<AKITMMETIC INTRINSIC* ila ABS 
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/ BOOLEAN 




/ DABS 




/ DECIMAL 




/ DINTEGER 




/ DMAX 




/ OMIN 




/ DNABS 




/ DOUBLE 




/ DSCALELEFT 




/ DUPLICATE 




/ ENTIER 




/ EVAL 




t EXCHANGE 




/ FIRSTONE 




/ FIRSTMORD 




/ INTEGER 




t LISTLOOKUP 




/ HASKSEARCH 




/ HAX 




/ MIN 




/ MYSELF 




/ NABS 




/ NAME 




/ NORMALIZE 




/ OCRX 




/ ONES 




/ REAL 




/ SCALELEFT 




/ SCALERIQHT 




/ SCALERI6MTF 




/ SCALERlGMTT 




/ SCANIN 




/ SECONDMORD 




/ SIZE 




/ STUFF 




/ XSI6N 


419 <BOOLEAN INTRINSIC> 


ll« AVAILABLE 




/ BUSY 




/ HAPPENED 




/ OVERFLOW 




/ TOGGLE 
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/ UNLOCK 

420 <f'uiNlE.K PAKAMETEHS> I«« <AKRAY PaRT> 4«4 

/ <ARRAY PART> . <CHARACTEK SI2E> 444 445 

^21 <UNi>H.NtU INTEGER LIST> ««■ <AR1TMMET1C EXPRESSI0N> 97 

/ <ARITMMETIC EXPRESSION> > 97 

<UNSIGNEO INTEGER LIST> 421 

422 <SPECIAL CMARACTErt> «»» . 

/ » 

/ [ 

/ ] 

/ { 

/ ) 

/ ♦ 

/ - 

/ <SLASH> 353 

/ > 

/ < 

/ < 

/ > 

y M 
/ — 

/ # 
/ ♦■ 

423 <ARRAY IDENTIFIER L1ST> «la <ARRAY IDENTIFIER> 148 

/ <ARRAY IDENTIFIER LIST> » 423 

<ARRAY IOENTIFIER> 148 

424 <bOUNU iPECIFIER> ««■ * 

/ <BOUND SPtCIFIER> » * 424 

425 <ARITMMETIC FUNCTION DtSIGNATOR> Jt» <fUNCTION 0ESIGNAT0R> 69 

/ <ARITHMETIC INTRINSIC> 418 

426 <LEFT BlT»Ta> Jt« <ARIThMETIC EXPRESSI0N> 97 

427 <nUMHLR Qf BITS> lt« <ARITMMETIC LXPRESSI0N> 97 

428 <utFT BIT-F8GM> t«s <AKITHMtTIC EXPRESSION> 97 

429 <utTAL UIGIT> I J« 

/ 1 

/ 2 

/ 3 

/ 4 

/ b 

/ 6 

/ 7 

430 <blNARY CMARACTER> <«■ 
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/ 1 

431 <gu*Tt.RNAHt CHARACTEK> ll« 

/ 1 
/ 2 
/ 3 

432 <oCTAL CMARACTER> M» 

/ 1 
/ 2 
/ 3 
/ « 
/ 5 
/ 6 
/ 7 

433 <HLXAUEC1MAL CHARACTER> 11" 

/ 1 

/ 2 

/ 3 

/ 4 

/ 5 

t 6 

/ 7 

/ 8 

/ 9 

/ A 

/ B 

/ C 

/ D 

/ E 

/ F 
434 <BCL CHARACTER> H« <STRlN6 ChARACTER> 393 

"^35 <BOOLtAN PRIMARY> »«■ <LUG1CAL VALUE> 253 

/ <RELAT1DN> 1*6 

/ <B00l.EAN ITEM> t**' 

/ <BOOLEAN FIELD DESIGNATOR> ««8 

/ <BOOLEAN OPERAND> '•«'' 

/ <BOOLEAN PRIHART> & ^BOOLEAN EXPRESSlQN> 435 105 

<C0NCATENAT10N> 397 

/ <B00LEAN PR1MARY> & <BOOLEAN LAYQUT> 435 450 

/ <TABLE MEMBERSHIP> 451 

/ <VALOE DES1GNAT0R> 327 

436 <FIEUU VALUE> n« <EMPTY> &'• 
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/ <*HITHM£TK EXPRESSI0N> 97 

f * 
437 <STRlNei dKACKET CMARACTER> «»» <QU0TE> 464 

^^^ <1NVALIU CHARACTER> lt« Q 

439 <t!HACKET> ii« £ 

/ ) 
/ [ 
/ ] 

440 <;UECLAftATOH> tt> ARRAY 

/ BUOLEAN 
/ DEFINE 
/ DguBLE 
/ EVENT 
/ FIELD 
/ FURKiARO 
/ INTEGER 
/ LABEL 
/ LAYOUT 
/ MONITOR 
/ ON 
/ OWN 
/ PICTURE 
/ POINTER 
/ PROCEDURE 
/ QUEUE 
/ REAL 
/ REFERENCE 
/ SAVE 
/ USING 
/ WORD 

441 <UPERATUR> «l« <ARITHMETIC 0PERAT0R> 452 

/ <CONCATENATE 0PERAT0R> «53 

/ <logical operator> 45« 

/ <r£lational operator* 286 

/ <replacement operator* 103 

/ <SEQUEnTIAL operator* 455 

442 <SEPAWAT0R> I t» , 

/ . 

/ ? 

/ t 

/ J 
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/ <SPaCE> 3 

/ BY 

/ COMMENT 

/ IN 

/ NULL 

/ OF 

/ STEP 

/ UNTIL 

/ WHILE 

/ WITH 

443 <SPECIFICAT0R> li« VALUE 

444 <ARRAY PART> It. <ARRAY ROW> 277 

/ <5uBSCRIPTeD VARIABLE> 278 

/ <ARRAY lDENTiriER> Ufl 

445 <CHARACTER SIZE> Mb 4 

/ 6 

/ 8 

/ • 

^^6 <RELATIIJN> ti. <ARITMMETIC RELATI0N> 456 

/ <REFERENCE RELATI0N> 457 

/ <STRING R£LATI0N> 458 

/ ^POINTER RELATI0N> 459 

447 <BOOLEAN n£M> ll> <ITEH> 291 

448 <BOOLEAN FIELD DE5IGNaT0R> i*> <BOOLEAN OPERAND> . <riELD IDENTIFIER> 449 158 

449 <800LEAN OPERAND* Ma ( <BOOLEAN EXPRESSION* ) 105 

/ <BOOLEAN VARIABLE* 256 

/ <BDOLEAN FUNCTION DESIGNATOR* 460 

/ <CASE HEAD* ( <BQQLEAN EXPRESSION LIST* ) 197 370 

450 <BOOLEAN LAYQUT* li> kLAYQUT* 363 

*51 <TA8LE MEMBERSHIP* II. <ARITMMETIC EXPRESSION* IN <TABLE POINTER* 97 461 

( <POlNTER EXPRESSION* IN <TABLE POINTER* 218 461 

•^52 <A8ITMMETIC OPERATOR* II" ♦ 

/ • 

/ * 

/ <SLASM> 353 

/ DIV 

/ MOD 

/ MUX 

453 <CONCATEnATE OPERATOR* !!• t 

454 <LOGICAL OPERATOR* 11. AND 

/ EOV 
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/ IMH 
/ NOT 
/ OH 
455 <btgutNTlAL OPERATOH> !«« CASE 

/ UO 
/ ELSE 
/ FQH 
/ CU 
/ IF 
/ THEN 
/ TO 
456 <AKITHMtTlC RELATION> ::« <AHITHMETIC EXPRESSI0N> 97 

<AR1THMETIC RELAT10NAL> 462 

<AR1THMETIC EXPRESSI0N> 97 

«7<HtFEKENCL KELATIUN> .1- <RtFERENCE FXPRE5S10N> <REFEHENCE RELATI0NAL> 191 163 

<REFERENCE EXPRESSI0N> 191 

458<<,THlNli RELATION) ««» <POINTER EXPRESSION* <RELATIONAL OPERATOR> 218 286 

<P0INTER EXPRESSION* FOR 218 

<ARITMH£TIC EXPRES5I0K> 97 

459<«nrNTrK kELATION> M- cPQInTCR EXPRE5SIQN> <REFERENCE RELATI0NAL> 218 463 

<p0inter expressiqn> 218 

460 «buollan Function dE5ignator> »«« <functiun oesignator> 69 

/ <B00LEAN INTRlNSIO 419 

461 <TAbLL P0INTER> l«« ALPHA 

/ ALPHA6 

/ ALPMAe 

/ <5UBSCRIPTEU VAR1ABLE> 278 

^62<AKITMMLT1C RELATI0NAL> ««= <RELAT10NAL OPERATOR* 286 

/ IS 

463 <RtFLKENCE RELATIONAL* 11= » 

/ * 

'*64 QUOTE- : •= " 
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APPENDIX D^ INDEX OF METALINGUISTIC VARIABLES AND RESERVED WORDS 

THE METALINGUISTIC VARIABLES UTILIZED THROUGHOUT THE ESPOL LANGUAGE 
ARE OUTLINED IN THIS APPENDIX. METALINGUISTIC SYMBOLS ARE COMBINED 
TO FORM A METALINGUISTIC FORMULA, WHICH CONSISTS OF METALINGUISTIC 
VARIABLES. EACH METALINGUISTIC VARIABLE IS ASSOCIATED WITH A 
CORRESPONDING "LINE NUMBER COLUMN" AND "PAGE NUMBER COLUMN". THE 
LINE NUMBER REFERS TO THE CORRESPONDING LINE NUMBER IN APPENDIX C, 
WHICH CONTAINS THE COMPLETE SYNTAX FOR THE METALINGUISTIC VARIABLES 
THE PAGE NUMBER TO THE LEFT OF THE SEMICOLON REFERS TO THE TEXTUAL 
PAGE WHICH FIRST USES / DESCR I BES THE ITEM IN THE ESPOL SYNTAX. THE 
PAGE NUMBERS TO THE RIGHT OF THE SEMICOLON SHOW THOSE PAGES WHERE 
THE SYNTACTICAL ITEM IS USED EITHER IN ANOTHER METALINGUISTIC 
FORMULA, OR USED WITHIN SEMANTIC EXPLANATIONS. 
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AdS 3'^> :>-ti 

324 <ACTUAL UCm LIST> . v-23; r-3b* V-^3* 

275 <ACTUAL »'ARAHETE:R> . 0'3T I7'3:>,ii--i7 » 

210 <ACTUAL fARAMtTER LIS1> . B" J/ J ^-36.8-37 .<*-<i3» 

130 <ACTUAL eARAMtTER PAKr>t ....»•.. • • tH'ift&^ir, 

034 <ACTUAk TEXT HAHT> f-bt r'b>7'7 , 

228 <AOUlN(j aPEHATOR>* • « • > . i . . »'*•2^7'i'*^'i''^^'t•^Q^ 

AUOHESS. 7-3V. 7-HQ 

155 <AUUREi>S>» «... .7"39t7-J9* 

227 <AUUREi>S COUPl.E> • 7-i'ii7-'j9, 

084 <AUURESS PART> . 7-3y> ?-3»7-iU. 7-2"* .r-3t» 7-39. 

251 <ALiiORITHM> 7-34J7-34. 

310 <AL()OKUHH IDENTIFIER> .7-34)7-34. 

176 <Al.t)ORlTHH LIST> ...•.....*.......... .7-34)7-34. 

099 <Al.aOKiTHM PART> 7-34)7-34. 

ALLOCATE. 7-34. 7-36 

ALLOH .......................... b'7t 5-16 

ALPHA » 9-12. 9-l4 

358 <ALPHA STRINO .4-7)4-7. 

ALPHA6. ..... ............ 9-12. 9-14 

ALPHAS. 9-12. 9-14 

ANYI-'AULT ....*.... a-3b. 0-36 

AKEACLASS ^'14 

AREAS . 7-14 

AREASUE 7-14 

172 <ARlTHMkTIC A$SIGNMENT> 9-2)0-3.9-2* 

107 <AKITHMETiC ASSIGNNENT STATEM£Nr>. 8-3)6-3. 

097 <AR1THMETIC ExPRES510n>. ...... 9-2)5-2. ^-3. 7-/' » ^-12. 7-34. 7-36. 

a-3.a-6.8-r»B-B»tt-ltt»8-25»8-2a. 
8-29. 8- JO » 8-31. 8-32. 6-40.8-42* 
8-43 .9-1* 9-2* 9-3* 9-4. 9-5. 9- 12* 
9-17.9-20*9-23.9-25. 

369 <ARiTHMETIC EXPRESSION LIST> ... 9-3)9-2.9-3.9-17. 

186 <AR1THMETIC FIELD A&SIGNHENT> 8-3)8-3* 
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I'tM KAut 

425 <AHlTMrtt.llC FuNCTlUN JESllnNATOR* .9-3JV-2. 

418 <AKiThmlTIC InTKInS1C> . 5-715-7. S»-3. 

365 <ARiTMMtllC Ilt.M> ...,,.. , ,5-4Ji)-«» 

452 <AKIThHtllC DKtKATUtO ,3'lt3'l, 

456 <AHlThHLIIC RtLATIUN>. ................. .9-l^lV-i2, 

462 <AKlTHMLflC »tLATIUNAL>, . .9-U>9-i2. 

221 <AHlTtiMEIlC SuUKCt>. .a-<»u; 0-'»0.8-4^» t>-<*3» 

283 <AKlTMMtTlC TKANSfLK fkH\> d-'tOJ 8-<»0. 

243 <ARlTMMtTiC VARlABLt> . 9-3; 8-3.9-2» 

342 <AKiTMMLl IC-VALUEO KiLE AlTKIBUTt NAML>. . 7-l<H7»i4» 

AKHAT , , 3-1, 5-2. 5-5. 5-6. 7-3. 7-9. 7-10. 7-29. 7*33. 7-3'». 7-43 

y-9 

187 <AKriAr Abi>Ii>NMENT> . .9-9; 6-3. 9-9. 

108 <AHKAY ASSHiNmENT SIAIEMEnT> ... ... .8-3Jd-3. 

010 <AKKAy UttLARAHQN> 7-3J7-1. 

260 <AKKAT UtSlGNATUK> ..... . , . 9-9;6-3*9-9* 

261 <AKKAr tXPRESi>IUN> y.^; 9-1 , 9.y ,9.^5, 

188 <ARNAT UtLU ASbIiiNMENT> ................. ,6-3>6-3. 

148 <AHKAY lUENTTHErt> ......... 5-2;5-2. 7- J, 7-23» 7-29» 9-9.9-20. 

423 <AHKAY iULNTIfltK LISI>. ................ .7-29;7-29. 

224 <AKKAY iNTRINSli;> .5-7J5-2.5-7, 

362 <AKKAY ITEM> , .9-9>9-9» 

030 <AKrtAY MNU> .7-3J7-3. 

031 <AKHAY LiST> ............. . . , 7-3» 7-3, 7-9, 

444 <A«KAY eAKT> ................. ,9-2aJ9-^0, 

322 «AKKAY ►'rtlMAKY> 9-9;9-2»9-9» 

277 <AKKAY Kuw>. ... . . 9-^U i 7-4. 7- J5. d-25, 6-3i , 8- J2» 

0-hU. a-** J, 0-44. 9-1 J, 9-1 4, 

9-^0. 

058 <AKKAY iAVE PAHr>. 7-43J7-43, 

078 CAKRAY 5LUMENT>. . 7-3J7-3, 

304 <AHHAY ifECiriCATlUN>. . . . .7-29;7-29, 

394 <AKr<AY iKEClFlLM> .7-29J7-29. 

350 <AKrtAY if-tClFitrt L1ST> .7-29>7-«:9, 

349 <AKKAY TYPE> 7-29J7-29, 



B6700/B7700 ESPOL D- 4 

APPENDIX D. INDEX OF METALINGUISTIC VARIABLES AND RESERVED WORDS 
UtM f-Abt 

321 <ARt<Ar VAKIA^Lt> .Sl-9IV-V> 

ASCII .. t .... t ... t ^OQ. r-it> 

410 <ASCII t.uUE> t . . .fo;<«'7« 

411 <AS(.u srKiNQ> (fom'ftf'iiHt 

065 <ASSI(iNM|::NT SIATEMLNT> .................. ,&-3}a'l, 

ASSlfii^TiML 7'iH 

ATENO . T'lt 

138 <ATTAtM bTATEMENT> o- J J ; 7-lo. a- J3 . 

AlTACh 0-3J 

ATTtKK ^-1^ 

ATTKiauTLMANDLEK fib 

ATTVALUt fli* 

ATTYFt; . flH 

AVAlLAat-t. . t>-/. ^-1^ 

BACKUfUidK r'1'3 

325 KbASIC CUMPaNENT>. H'lib'l> 

066 <bASIC i>TATt:HENT>. . d-6ib-l> 

364 <BA&IC SYMBUL> J-1>4-1. 

UASiCCuut: T'l^ 

BASiC&YniJUL /-It) 

434 <HCL CHAKACTErO. • 4-ai4-7. 

408 <BCL CUUk.> it'TlU'T, 

409 <bCL bTKlNG> 4- r { 4-r > 4-0. r'<f4. 

BCL 2-l» 4-6. 7-lb. ^-16 

SLQIH 3-1. 6-1 

BLiilNATl ^-15 

430 <BINAKY CHAKACTt:R> u-Tfi'T, 

400 <BiNAKT Cl)Ol> • .4-7i4-7'. 

401 <BiNAHr 5TRiNa>. 4-ri4-7. 

BLOCK. ................. 6-1. t'd> f'\H 

002 <BLUCK>. 6-1 ;b-l»a-l»8-33.t)-36. 

005 <BI.UCk ht.AD> • .6-U6-1. 

BLOCK&iZE .................. ^'14 

308 <BOULEaN ALUOKITHM IUlNTII'I£K> ,7'itl7'iH, 

181 <bQOLtAN ASSI(iNMENT> 9- i 1 ; a- J. V-1 1 » 
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---- -i-f 

109 <BOOLtAN ASSItaNHENl STATEMENT> , , , ,e-3>6-3» 

105 <baOLt.AN exHRtS5I0N> ....... . '^-UJ^-3H»t)-l,a-i.b-8.1*-l»9-ll. 

370 <BOOLEAN tXPRtSSIQN L1ST>. Vl 1 J9-U »9-l 7» 

359 <BOULEAN FACTOR> .9-U;9-il» 

189 <B00i.tAN flLLQ AS5iiiNMENr> , . .8-3>tl-3. 

448 <BOgLtAN FIELU UE5ieNATQrt> . . . , , 9-1119-11, 

460 <B0UIEAN FUnCTIUN UtSiGNAlOR> 9-li!>9-ll* 

419 <BUC1I.£AN INTRINSIC*. , !j-7 ; 5-7* 9-12. 

447 <BOULtAN iTtM> ....,.,,.,, . , ,9-li;9-il, 

450 <BOULEAN CAYOUT> ..... .......... ,9-ll>y-il» 

449 <baULEAN OPERANU>. 9-ll>9-U« 

435 <BUOLEAN PRIMARY>. ............ 9-1 1 ;8*2U< 9-1 1 • 

414 <60aLEAN SE^CnNOARr>. •9-11)9-11, 

316 <BUUl.EAN T£KH> , , •9«11}9«11« 

256 <bUOL.EAN VAKIABLE> 9-1 1 ;(»-i,9-l 1 # 

BOULEAN. . , 3-1, 5-7, d04, b'l'st 7"39» 7-4J» 9-11 

343 <BaOl.EAN-VALUEO FILE ATTRIBUTE NAME> f-15J 7-14, 7-16, 

aOTFOHUFSTACK. . 6-3:; 

225 <a0UNU>t ..,..,.,..,.,,««..... ^ , ,7«3»7-3,/-4, 

149 <BUUNU LIST> ... ........ 7-3)7-3, 7-10> 

424 <BaUNU 1»PECIFIEH>. , 7"J0;7-29,7-30, 

BOUNOCUUE r-1^ 

439 <aRACKET>. , , .3-in-l# 

BREAK 7-lS 

BKEAKHtKE «,..... ............. 7-16 

BKST 5-8* :>*9 

BSET i^-y, 5-12 

BUFFEK&. .......,,. 7-U 

BUST , . 5-7, 5-15 

BUZ4 5-7, 5-16 

CASE .............•*....(«. 3-1, 8*6, y-1, 9-17 

267 <CASE £XPHESSiaN> 9-17) 9-1 ,9-17, 

197 <tASE MEAU>, ........... . 8-6*6-6, 9-2»9-l 1 , 9-1 7, 9-19, 9-^0, 

9-23,9-;^5, 
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115 <CAS£ 5TaTEMENT> ....'.. • 8-6»8-6» 

118 <CAUSt SIATtMENT>. .e-U I b-U .6- l^.U-l 3,a-15.8-i6» 

CAUSE • • ***'' 

119 <CAUStANUKESET STATtMtNT> fl-l 1 » a-U .0-l3»8-li.a-l6. 

CAUSEANUKESET • ®"^^ 

CbOM • ^"^^ 

CENSUS ''*!'• 

CHAKACTER ■*"i 

416 <CHARACTtR>. . . .^-1 » 3-1 . 7-6. 

445 <CHARAtTER SlZE> 9-2o;V-.iO. 

CLASSA '*^*» 

CLA5SB 7*16 

CLASSC T-lb 

CLOS. ......... « ......... a-22 

211 <C(.OSE 0PT10N> .8-2^Jb-.i2. 

131 <CLOSE STAT£MENT> 8-2i!»8-2«#8-^2. 

CLOSED . 8-16 

154 <Cl.OSED T£XT>. . T-i,t7-6,7'T » 

082 <CLaSEi) TEXT LlST> • >7'bt7'btr'7 , 

COBOLCOUE • • ^"^^ 

C080LSTMBOL .......*.*••• .... '"15 

CODEFUE • '"^5 

comheht. ^'^ 

COMeiLERCOOE • • '"*^ 

004 <COHPOUNO STATEMENT> • • 6-1 »6-i »8-l »B-6.fl-J6» 

006 <CO»lPOyND TAIL> • • .6-U6-1. 

CONCATENATE . • • *'* 

453 <CONCATENATE QPERAT0R> • • .S-Ua-l. 

397 <CONCaTENATION>. *-ii» V-2.9-S.9-H » 

223 <CONDniON> .a-i|0>e-40.8-Mi,8-42.8-«J»8-44. 

171 <CONOITIONAL ARITHMETIC EXPRESSlON>. .... 9-2J 9-2.9-18. 

180 <CONDITIONAL BOOLEAN EXPHtSSIQN> ....».••.. 9-1 1 »9-l I »9-i8» 

270 <C0NDIT1UNAL UESISNATIONAL EXPRESSI0N> 9-19 J9-18. 9-19. 

268 <CONOiTlQNAL EXPRESSlON> ......... • • 9-18J9-1. 

062 <CONOITIONAL lTERATION>. * . « 8-8>a-l. 
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iTtH fk&i. 

280 <C0N0ITI0NAL POlNTEK t:xPRtSSIQN> .»>»..•*,. ^-20 19-18. 9-^0» 

028 <CONOinONAL i>TAT£MENT>. ....«•..•• «<i-U6-l »d-d« 

179 <COnSTAnT> , 7-H3i7-l^i7'H3» 

255 <CONSTAhT CXPKLi>SION> » .r-4i}f-«»3. 

104 <CONSTANT L1ST>. ...».«...«•« ?-43l ?-J» 7-43# 

299 <(.ONTNUt CHARACTEH>. .T^2Ht f'^tt, 

CONTRuLUECK 7'lb 

258 <CUNTKULL£0 VARlAdUE> .8-ata>8. 

CUfili 7-l4# r-15 

341 <COKRtCT COUNT>. 8-4u;8*<l0.8-4iif 6-43* 

CURKECTLT. ..... ...... 8-40 

CTCLE 7-14 

CYLINOEKMUDE ^-15 

DABS 5-7* a-9 

DATA. 7-15 

DATE 7-14 

DCALGOLCUUE ..... ..... 7-13 

OCALQULSTHBOl .......... .... 7-15 

OEClHAt 4-5* 4-6* 5-7* 5-y 

398 <0ECINAI. FRaCTIUN> 4-3)4-3* 

354 <UEkIHAL NUMBCR> . 4-3)4-3* 

008 <UECLARAT10N> .7-1J6-1* 

OECtAKATIONS. . . • f'l 

440 <UECLAKATUH> . .3-1)3-1* 

DEFINE 3-1* 7-6 

Oil <UEriNE UEClaKATIUN> 7-6)7-1*7-6* 

012 <UEKINE iNVaCATlON> 7-6)7-1*7-6*7-7*8-1* 

003 <UEFINLU 10ENTIFIEK> ..... .7-6)7-6* 

080 <UEFlNlTiON> ..... .7-6)7-6* 

032 <UEF!NiTlUN L1SI> 7-6)7-6* 

417 <UEI.INXT£K> . .3-1)3*1* 

DELINK ............ ........ 7*34* 7*36 

DENSnr 7*15 

376 <UENSnT MNEMuNiO .7*13)7-15* 

196 <UESH.NATIONAL EXHRESi>10N> . y-19)a-6. V-l *9-19* 
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198 <OESieNAIIONAL £XP«fcSSION L1ST> V-i9 » 8-6.9-U»9-i9. 

143 <UEST1nAT10n>. ..«.*.•.... .8-40;d-4U>B-41«U'42>8-4J*a'H4. 

139 <UE1ACH STATEmEnT> ..... 0-J3 » 7-lo» 8- J3. 

DETACH a-33 

153 <OIGIT> 2'lid'l,H-i,H'3. 

340 <t)iGir cauNT> .a-<tu}8''40»d-4^*a-43> 

DIGITS. ......... 8-40 

DINTEGEK ............ 5-7. ^-9 

013 <UIK£CT AKRaY ObCLAKATlON> 7-9;i'-U 

035 <UIRECT AKRAY KINU> .7-9;7'-9. 

235 <U1RECT FILE IDEnT1FILR> ?'\x,tT-lH, 

039 <DlKEtT SPECIFIER> i'-i^* ) 7-H»» 7-^V. 

DIRECT. ........ ... r-y. 7-29 

DIRECnUN 7-l4 

DIRECTUKY r-li 

DISABLE ....... a-33 

141 <UISABLb STATEHEnT> 0-33 1 7-la*8-33. 

DISALLU t>-r« 5-16 

DISK 7-16 

DISKPACN 7-16 

290 <OISPLACEMENT> . 7-39>7-J9« 

DISPLAY 7-16 

DISPOSITION 7-14 

OIV 3-1. 3-2. 9-4 

OMAX 5-7. :>-9 

DMIN 5-7. ■3"i 

ONAbS t 5-7. t>-9 

OLI 3-1. 0-8 

147 <UQ STATLMENT> 8-8)0-8. 

DOUBLE ......... 3-1. 5-7. 5-9. 7-39. 7-43 

DSCALELE.KT 5-7. 5-lU 

DSLF 5-lU. 5-13 

DSRF 5-14 

DSRK 5-lJ. 5-14 

DSRT . 5-14 
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KtH fkdt 

OSwAir d'l2 

122 <Ui>wAiT S)TATEMLNT> ................. «J-U ;8-U »a-i5t 

204 <0S*»A1 r*UUMHLtX STATE«ENT> 0-i2;8-n .8-15» 

203 <USHAlT-S(IMPLt STATEMtNT> 0-l2»<J-n »8-l5. 

DSHAITANUKE&ET . , , . , ,,,,,«,,., d-1^ 

123 <UShA1TANURLSLT S1ATEmENT> a-l^;8-il. 

206 <USMAlTANURESET*CuMeLtX bTATEMENT> «... « . »&'l■^ili'i^^ 

205 <OSnAIlANUKtSfcT-SlMeLt STATtMENT>. e-li;8-i2. 

114 <UUMHr STATEMENT>. .a-6;8''6. 

OUPL ..................... ... 3-10 

DUPLICATE .S-/. 5-10 

OUPtlCATtU ......... ......... r-15 

EUCUK 4-8. 7'iif fib 

412 <LUCUIC l,UOE> .4-814-7. 

413 <tiiCUlC bTRINb> H'aHt'rt7'4H> 

EEXI 3-16 

EMPTY .7-34. 7-36 

064 <tMPTr> .3-i;3-l.4-i. 4-7.7-3. 7-6. 7-9. 

7-<il.7-24.^-2')».7-34.7-J9* 
^-43.8-1 » 8-6. 8-l8»8-ii5» 
a-3 7.O-40.8-4l.9-3»9-6. 

ENAbLE «... * 8-33 

140 <ENA8LE STATfMENT> ... .... 0-33) 7-ld. 8-33* 

ENAULLINPUT , 7-l4 

ENU 3-1. 6-1 

ENTER A-11 

EnTIEK . \}-f, 3-10 

098 <ENTRT UE&CRIPTI0N>. ........... 7-34; 7-34. 7-35. 

262 <£NTHT EXPRtSSlUN> 9-ii 31 /•-33» 7-3t..9-23. 

175 <ENTRT HEM LIST> 7-34; 7-34. 7-35» 

EUF ........ 7-13 

EUV 3-1. 9-11 

EKKUKITPt 7-14 

377 <tRKUKrTP£ MNtMUNlC> . . .7-15;7-i5» 
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ESfULCOUt 7-15 

ESPULSYMdUL r'l'j) 

EVAL ^'f, ^-lu 

EVENT ♦..,., 3-l» 5-0. 7*10, T'l'i, T'39, 8-U. 6*39 

015 <tVENT AHKAT DECLAKAT10N> . flti;7'\t 

231 <tVtNT AKKAT IOENTIFItK> ..... t ....... . . 7-lO> S-6. 7-10. 

233 <tVfcNT AHKAf irEM> , , . .5-6;i-6. 

157 <EVtNT AKKAT LlSr> ?-iO;7-10, 

014 <tVtNT UlCLARaTION>. ^-lO;?"-!. 

156 <£VENT iiLSI(iNATOH> .......... .5-6;5-l »a-l i . t»-l2.8-2b.8-42 . 

b-i3»0-J7. 

083 <EVENr iUENTIFIER> 7-lU<:>-b. 7-10. 

036 <EVt.NT lUENUFlER LlSr>. . ?-lO»7-10. 

230 <EVENT 1TEM> .5-6>5-6. 

085 <tVtNT L1ST> . .... . 8-1 1 t ?-10.a-l 1 . B- 1 4, 

086 <EVENT SE(iMENI> 7-lol7-10» 

037 <eVtNT SEUhENT LIST> 7-lo}r-10» 

067 <EVLNT STAT£MCNT>. 8-lU8-l> 

EXCH 5-lU 

EXCHANlaE . i)'f, 5-10 

EXIT 'i-r, 3-16 

355 <EXPONENT PART>. . .4-3J4-3. 

EXPQNENTOVEKFLON 8-3b. 8-36 

EXPUNENTUNOkRFLOW 8-3l>* B-36 

194 <EXPHESS1UN> 9-1 » 7-3y »8-J7 .9-5.9-1 / »9-i8. 

9-2i. 

329 <EXPRtSSlUN LIST> 9-17)9-17* 

EXTERNAL ........ .... 7-30 

EXTHQUE ........... . 7-15 

378 <EXTMguE MNEWQNlO .7-lbl^-15. 

305 <FACTUH> . .9-2>9-2. 

FALSE j-1 

FAMILY 7-ld 

FAMILVSI2E 7-14 

FAST . 7'lb 
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IlLM CAUL 

FAULT ............................ 0-3S 

142 <FAULt NAME> .••••••••««•••.• 6-3^;8-jS> 

FIELD 3>l. V-^n y-o* T'\l 

159 <FULU>. . J-litT'litr-il, 

016 <FIELU iJtCLARATiON> T-XZir'X, 

395 <KItl.U ULSIbNATUK> . V2I9''2* 9-5« 

158 <FIELU lUtNriFI£H> * 7-i2) ?-A2. 7*21 »tt-3»"*-ii» V-i I . 

087 <F1ELU PART> . 7-12; 7*12. ^-21 . 

038 <FULU ^AKT L1SI> T'\ill'\2, 

436 <FILLU VaLUE:>. 9-3J9-3>9-6« 

415 <FILLU VALUE LlST> . 9-3; 9-3* 9*6. 

296 <FIELU VALUE HAKT> . 7-21 >7-21 « 9-6* 

FILL 7-U 

346 <F1UL AITKIHUTE MNtHOwIC VALUE>. ... ... .7-l5;?-15» 

293 <FILE ATIKIdUTE NAME>. ..... ..... .7-l4;7-14> 

294 <FILE ATrrtlBUlE VftLuE> . .7-15;7-U. 

017 <FILE ULCLANATIUN> . 7-14; 7-1 * 7-16* 

160 <FILE UES1GnAT0H>, 7-l4;7-l4»8-2i;»a-24.8-2S. 8-^:7. 

e-28»«-29» 

234 <FiLE iOLNTlFlEfO. ....... ....... .7-l«;7-l«» 

040 <F1LE LIST>. ............ . .7-1417-14* 

088 <FILE L15T PAKT> 7-l4}7-14* 

212 <FILE PA«T>. «»-25;8-2!>»8- JO* 

FILLKINU ........... 7-lb 

379 <FILEKlNy MnEmONIO. .7*1S;7-15* 

FILETtPE ....... « ...... 7-14 

336 <FINAL CUUNT>. ..................... .8-4U;8*40* 

319 <FINAL HAHT> i . . . . « .8-a;8-8* 

FIRST 7-34* 7-36 

FIKSTUNL . d-7* 3-lU 

FIRSTrtUNU b-7* 5-lU* 5-11 

FIX *...... e-12 

125 <FI» STATEMENT> S-12 > 3-1 1 * 8-16* 

184 <FUK CLAUSE> .e-6;8-8* 

259 <FOK PAKT> . , S*S;s-8» 
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iTEM I^Ajit 

FORK t 8-ia 

128 <FQKK PAKAMCT£RS>. •.•.«...•.«.«»••.•• .4}*16I6*ia* 

068 <FQKK ;iTATCM£NT> « * . . 4 . . . (B^U >tt-l *a-18> 

239 <FORHAC PARAM£TER> ».«...* tTitiT'lt , 

167 <FONMAL PARAHETEN I.IST>. 7-24ir-4i9. 

094 <FONMAt PARAMETER PARr>. ..*.«...•• t7'2'itT-'^9, 

288 <FOHMAL &YMbOL>« • T'6i7''t»T''7 , 

226 <FQHHAL SYMaOL l.IST> « ,?-bir'6t 

150 <FUKMAL SYHBOL PAKT> * t . • t • • ,7'6i7-6t 

FORMES^AtiE • ^'1^ 

FURTRANCOOC • * . ^'13 

FORTRANSYMBUL • • • . . . T'li 

FQNMARU 3«1« 7-27 

FREE .«...•* • 0-1 

127 <FREE STATCHENT> . ....... 0-12>S-n >8-l7* 

FUEL I ....... . 7'int 7'3b 

069 <FUNCTiUN DESIG«AT0R>. ..«.•.•. .8-3^>6-i»y-i. V"l2»9-2 J»9"i^5» 

129 <FUNCTIUN IDENnFI£R>. • . • ,d'iftd'i7, 

366 <FUNCT1Un INTKINSIC> 5-7t^'7» 

266 <aENEKAE CONPONEnT> « &-1 >5-l *yl * 

GO ..... . t • I * * • i'ip 6"2> 0-6 

113 <aO TO S1ATEMENT> 8-6}a-6« 

HAET 5-ir 

HAPPEnEU • i'ff 5-12 

HEX .*.........•. > • • ^'10 

433 <HEXAt)EClMAL CHARACTEr>. • .4-ri4-7> 

406 <HEXAUEC1MAL COUE> ........ « • • >4-7;4-7» 

407 <HCXAUECIMAL STHIN«i> . * . . < 4-7 14-7* 7-i!4* 

HCYUU b-7> t)-16 

HEYU 5*16 

HIGH • * 7-15 

214 <I/0 AKEA> • 0-25)8-23*a-J0* 

215 <I/U FINISH EVENT> ...... . 0-25 »8-25»a-J0. 

070 <l/0 STATEMENT>. 8-<:0;a-l. 

ICVU •...•..•...•.•■...•.•.••.• .5-9* :3-ll 
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irtM HA15E 

081 <IDtNHFl£R> ... i ...«., . .4-2 1 4-1 . 4-2»5-l »5"2»5-4.5-5. r»6» 

7"lU»?-12»7-i4.?-l6.7"la»7-<i0> 
?-2l.7-24.f-^'*,r-J4.7-3')i.7-40» 

241 <iatNTiFiER LlST> , ,r'29i7'i9, 

It^Lt 5-16 

061 <IF CLAU5t>. ............ 0-Ua-l.y--i. W.V-U,9-18»9-i9» 

no .i-^. 5-16 

IM'' 3-i» y-U 

257 <IHeLitATiON> 9-liJ9-il» 

INACTlt^EUUEUE . e-ab* iS-36 

053 <1NUEX aOUNO> 7-i4» 7-34. T'-JS. 

236 <IN1T1AL ATTRIBUT£>, ... ....... .7-l4?7-14» 

161 <INlTiAL ATTRIBUTE LIsT> 7-l4J7-i4. 

317 <IMTIAL PArtT> . .8-8;a-8. 

178 <INlTiAL VALUt> 7-39I7-J9* 

079 <INlTIALi2E0 ARKAt>. . , , .7-3J7-3» 

INSERT ..... .•...«.. 7-34. 7-36 

352 <INTE(jEH>. «.•.•..•....«...«,...* »4-3J4-3»9-2» 

312 <lNTEutK ALtiORlTMM lOLNTlFIErt> • . . . « 7-34»7-34. 

INTEbEKUVERFLUH ...... ....... 8-3b. 8-36 

IMtRChANGE ....*........... 7-lb 

096 <iNTERNAL NAME fAHT> .....*......«..... .7-34»j7-34# 

INTERRUPT 7-18, 8-33. 8-35 

018 <InTEHHUKT UEl.tARATiOrt>. . « 7-1817-1. 

089 <INTEKKUPT lDtNTIFltR> ............... 7-18 J 7-lo,8- J3» 

041 <INTERKUCT SEiiMEnT>. . , , .7-lb>7-18» 

071 <INTErRUPT 5TATtMENT> .............. 8-33*8-1. 

INTHOUE ... ................. 7-15 

380 <INTM0UE MNEMONIO .7-16*7-15, 

InTNAME ........................... 7-15 

328 <1nTHIN<>IC> , 5-7;5-l,7-43, 

INTKlNblCFItE ................. 7-15 

INTRInSICS , , 5-7 
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ITEM PA(jE 

INTKNSb ..... .............. A-d 

300 <inTRouuction> 7'■^>^^r-^^, 

347 <INTRUUUCTIUN CaDE>. . ,7'2>tH*^Ht 

438 <INVALIU CHARaCTER>. ................... »2-n2-l. 

INVALIUAUURESS . « . d'ia* d'3b 

INVALIUInUEX ........... . 8*35* d-36 

INVALIUUf ........... ...........a. 6'3!>* d'36 

INVALIUPKOGRAMNORO . 8-3b» S-36 

250 <INVISItiLE ITEM LIST> 7-34 1 7-3h« r- J5> 

10 I . . 7-16 

IS . 7-34> 9-U> y-13 

291 <ITEM> .5-<t>5-4>d-6*9-9.9-n*9-^3> 

326 <ITEH UES1GNAT0R>. . • ...... .5-4)S-l> 

307 <ITEM IUENTIFIEK> ^'Hi5'H»T'iH»T'i5> 

249 <ITEN UIST>. ........ . 7-J4I7-34* 7-i5« 

106 <ITERAnQN CLAUSE> • 6'6Hi'dt 

JOVIALCUDE 7'li 

JOVlAL^THbOL T'lb 

KINU . 7-13 

381 <KIND HNEHONIOt T'lbiJ'lSt 

LABEL i-1 

063 <LAaEL>. .........•.....*.....»• «8-ita-i»e-6* 

019 <LAUEL DLCLARATlON>i . . • . 7-<iOt7-l» 

269 <LAHEL U£SIGNAT0R> 9-19)9-19. 

090 <LAdEL IUENTIFIER> * » , 7-<!0)7-20*<l-l>9-19» 

042 <LAbEL L1ST> ........... .7-2u)7-<0f 

LA8ELTYPE . 7-ld 

382 <LAaELTYPE MNEH0NIC> 7-16J7-15* 

LAST ....*.....•.....•...•.• 7-34. 7-J6> tt-9 

LASTRECOHU . T'ln 

LASTSTATIQN .................. T'lH 

LAYOUT . . . t . • 3-1* 7-21 

363 <LAYOUT> i 9-3>9-2«9-9.9-l If 

020 <LAYOUT iJECLARATION> . . . • 7-2117-1. 

295 <LAYOUT FIELO> < . . . • .7-2i;7-2l* 
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162 <LATOUI lUtNTlFlEH> 7-^\U-dl,^-i, 

237 <LAruuI iILM>, •<.....,..,., .T2llT'dl» 

163 <LATUiiI iltM LiaT> 7-'iliT'£\,'i-bt 

091 <LATOUT PAHT> .T-ii.iiJ'^1, 

043 <LArOuF HAHT LlSr> r = iil?^il» 

428 <LtM aiT-f'KpM> , y-2iy-if.V-5. 

426 <LEM ti^'^U>. < . . . • , y«2;9-2»V"5» 

152 <LLnLK> , , . .i--! ;2-l.'«-2. 

289 <LLVtL> 7-3VJC-J9. 

LlBthAlt , . ............. a-12 

126 <LIbtHArt 5TArEMtNT> . , . o*i2;8-li»8-ir» 

LlbKAKTLuLlt .... 

LiNL 

LlNLNuM . 

LISrLuuKk.H .... 

LLLU ....... 

077 <LUtAL Urt QhN TTrt>. 

LuC^ ....... 

311 <LO<.K iftCIf H,AriUN> 

132 <LUtK :ilATEMfNT> . , 

LUCKtU ...... 

LuCKEuUuI .,,,., 

^uui .. ..................... .2.^^ 

454 <LUl«I(.AL uHL'<aTUR> ,3-1 

253 <LU^)UAl VALUE> J-i; j-i.('-16.7-4j.9-il. 

UUG2 5-10 

LUUf , , 8-3;j, 8-36 

LL1« • ^-li 

" • 5-^. 3-d. r-^«, 

•^A* t>-/, 

rtAXuENNu ... ........ ..... 

MAXKELii/t ........... .... 

MCPCULlEt- ILL 

MLUIUM . . .......,, 

MEulUMfAbT .....,,, . .... 



* . . . ?-15 

. . . . . a-25 

.... r-u 

. . .^-f, b-ii 

.... b-U 

. ♦ 4 .?*3»^*3» 
. . . . . 0-24 
. . .TlHiT'iH, 
0-2'*;B-2tJ»a-^4» 

r'in 



7-16 

'#-2i 
3-1. 



?-25 

7-U 
7-U 

(--It) 

r-i6 
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IltM fbuL 

HLMURY . • . 'i'Tt ■3-0 

MtMUKYI^AKlTT . &'i:y 0' ib 

MtMOHYHKUTECT 6-3t)» ti'it 

HIN 'i'ff b-U 

MiNH£C:>Ut 7-in 

344 <MNE.MUhlC-VALUtLJ ►iLE ATIrtlbUTE NAMt> . .7-lb;'-14. 

Muu 3-1. "'>'^^ ^-4 

HUNlTUK .J-1. '"^i 

021 <MUNnuK UE(.LAKATIUN>. r-£iif-l, 

045 <M0NITUK LIST> 7-,?j:?-<:3. 

092 <MUNlTUKtU ITLM> T'dii/'^i, 

247 <HQST EXPHE^SIONS> • <i'2bl9'^5> 

HDVLSfACK b-/-. r3-lb 

306 <MULTiHLriNlj uPtHATuH> 'y-25V-2. 

HUX J'l. V-2. y*4 

MVSt .••.....>... . :>'lb 

MYSELt^ . :>-f> !i-U 

MYUSL yi'a 

383 <MYU5E MNEMUNIC> 7-lbif-ibt 

NABS b'f, 5-12 

NAMC . t}-l4 

NAME b*^. 5-12. r-iV 

343 <nEm CHAHACTEk> . 7-2<4 > /'-24 • 

NENUbLN fib 

NEXI » r-3». 7-36 

NEXTHEtUKJ ...... r'l- 

NQ 4-2t> 

NOEHRUK ......... ....... ^-Ib 

NUINPUT • <"16 

NUN^TAInUAHD . 7-16 

NURMAL 7-16 

NUNMALl^L '-i'f' ^"1^ 

NQT 3-i> ^-n 

NTiiU 3"^ 
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irtM 



. . . i-11 

. . . r'lb 
• . . . y-23 



NHiK , 

NOLlNh-uT . 

NULL , 

252 <NUrtB6.«> .......,....,,. 

427 <NUHBtrt UF BIiS> , ,9-2;9-2,V-5 

357 <Nwl«£,MiL SThInG> H'7m'7, 

°*'"* • » .b-/. 5.-13 

432 <L)CTAL CHARACrEH>. ...,,,. .4-7;4-7, 

•«..•<•.••.......... ,if7fH'T, 

*••••.••.•»»....»... .4*3M"3» 

•••••• • • .4-3M-3. 



404 <UCTAL \.iiUL> . . 

399 <IJCTAL CunSTAnT> 

429 <UCrAL Ui(iIT>. . 

356 <OCTAL NUMaER> . 



.4-3J4-3. 



405 <uCTAL b?KlNG> . .4-7M-7. 

QCw .....••- 



1>-13 



DMI fTtli 



OMlTTtULOF ...... 7-16 

ON 



* • J-i, 8-35 

072 <0N SfAftMENT> 8-3bJ8-i.a-35, 

QPEh •♦•.•.........*...♦..,,,,,,. r'lb 

396 <OPtRANO>. ....... ... 

441 <l3Pt«ATUK> 



,9-2J9-2! 



• • • * • 3-1J3-1. 

QPTIUNAL .,.,,,,.,, , ?«15 

°'^ .3-1, »»-ll 

384 <DTmEKUSE MhCwONlC>, 7-16J7-15. 

OTMtKuit. ...... ................ T'lb 

OUT ... ............ 

OVEKFLUw , ............... 

OVEHWHITE ....... . 

OVHU , »....,.., 

PA(iE 

PA&ESUt 

PAPER 

PAPERPgNLM , 



.... 7-16 

. . .5-7» 5-15 

. . . . d-41 

• . . . 0-4 

3-1, 7-3, ?-24 

.... 7-14 

.... r-l4 

.... T'l6 



f= J i 
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PAPER«£AUER .««>.•> ..... 7-16 

240 <PAHAMtTfcK UELlMlTttO t O-iC) f-iiV. 7-3*1.8-37 • 

PAKITY ^"15 

385 <PAHITY MNEM0n1C> 7-16J7-15. 

PARITYEKHOR ....... '"16 

PAUSE • • • •^"7» 5-16 

PETAPE 7-16 

PICTURE J-l* 7-24, 7-29 

166 <PlCTURt>. . ♦ • .7-2«»>7-iJ4. 

297 <PICTURE CHARACTER* • • • ^7'^*^7'^H, 

022 <PICTUR£ D£Cl.ARATIQN> • . 7-24 > 7-1 »a-44. 

338 <PICTUKE OESIGNATUR> .......».» ♦ • .8-4018-40. 

165 cPlCTURE IDENTIFIER* 7-<!4 » 7-24.8-40*8-44. 

093 <PICTURE PAKT> • • • 7-24l7-«;4. 

047 <PICTUHE PART L1ST>. • • .7-24»7-4£4. 

238 <PICTURE StHBOL* ......... t 7-24;7-24. 

PLICOOL 7**5 

PLiatHdOt » . . . 7-lS 

POINTEK • J"*' 7"^** '"20 

333 <POINTtR ASSIGNHENT> 9-20»V-<:0. 

373 <POINTER UESHiNATUR> . • • .9-20)9-^10. 

218 <POINTER EXPRESSION* 9-20 J6-2S, 8" Jl .8-40. 9-1 .9-12, 

9-13.9-20, 

371 <POINTtR EXPRESSION LIST*. 9-20»9-U,9-«!0. 

279 <PQINTER IDENTIFIER* • y-20>e-40,9-20, 

<POINTER PARAMETERS* 9-2u>9-i!0, 

<P0INTER PRIMART* 9-2o>9-^0. 

459 <P0INTER RELATION* • » 9-1^)9-12, 

220 <POlNTtR SOURCE* 8-40»8-40. 

<POlNTtR VARIABLE* 9-20»9-^0, 

<P01NTER-VALUE0 FILE ATTRIBUTE NAME* » • .7-1517-U. 

POPULATiUN • 7-14, 7-34 

PRESENT ...... 7-15 

351 <PRIHAKr> 9-2*5-10,9-2, 9-4. 9-l».9-k>0, 

PRINTER ..... .......... 7-16 



420 
331 



374 
345 
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''"I^^ T'i„ r-36 

208 <.KiGKiM> 6-U,8-i8. 

*'^^^i^-^^<^t 3.,, ,.2, 

051 <KHUCtiJUKt bnur> ?-Ju;7-2y,7-Jl, 

023 <KKuCEui;rtt UfCLAKAUUN>, , . , . e . /-^^;?-l, 

050 <PRUtLUUMt heAi;i.Ni,> , , ,7'^>iir'£9, 

044 <KKUCEUUKE intNTiritK> /'^V } T'^i,7'2^,6'i7 , 

367 cl'KUtt.UUrtL INfRlNblO 5'7l5-7, 

073 <eHuCLJUKt :>TATL-LNf> 6-37I ^-7.0-1 .8-18. 

049 <PKUttuUrtt TVKE> TZtlT'i'), 

PKOCUrtL B-12 

124 <eRuCuKL STATtMtNr> B-l^;8-li.B-i6. 

001 <eRU(j«MM>, ............. 



6-11 

PHUCiKAMMtUGHFKAriJH 8-33. 6-36 

t^KUrtcItU ^.j^ 

PKOTECTIuN ^.j5 

386 <t'RuTttUUN MNLMUNiO ,7-l6>7-15. 

f'^'*^^ T-Xt 

'^'^^ . d-22 

431 <uUATtKNAHr CMAHaCTtH> , ,lt'7i4'7 

402 <uUATt«NAKT CuUL>. , , , ,H'7tH'7 

403 <UUATtKNAKY STKl'»<u> H'7 Ht'7 , 

024 <«JULUE ArtKAT UELLAKATiUN> C-34; 7-X . 7-33. 7-36, 

052 <yULUt AnKAY H£AiJ> , 7-3tt;7-j4 

095 <juLUt Ak«AY lOLNriHLH> 7-34 J 7-3^, 9-<:3, 

110 <UULUt AibIbNMfcNr> 8-j;7-J6,d-3. 

054 <uutut duUY> 7-J4;7-34. 7-33. 7-36. 

025 <UUtUt UtCLAH(ATiON> ....,.....,,. 7-j4;7-l, 

190 <(dUtUE ULbIijNATuH> .9-23J8-J.V-23. 

055 <yutUt MtAU> . .7-3^,7-j4, 

100 <gULUt iUENTIHLH> ?-34;7-34.Si-23. 

323 <QUtUL NAME> ... .9-^j»/-34, 7-36. 9-^3, 

^^^ ^^^^T*^' 2-1*2-1.4-7. 

^'^'^'^ 3-16 
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RtAU < . B-2t> 

133 <HEAD iiTATtMrNT> 0-^3}o-.iO. a-25. d- Ji . 

RtAUCHtCK /"lb 

RLAUCHE.CKF AILuKt ^"Ib 

RLAU^K 7'lb 

t^LAUPAHUYEhKuR fl^ 

HtAL J-1. 5-/'. b-lJ. 7-J^. i'-'lJ 

RiCLKTiuNS r-m 

RECONilKuCTiONFlUE r-lt> 

RLCUKU T'ln 

216 <RLCOKU NLlMtiCK> O'^oia-iQt 

276 <rtECOKU NUMbFK U« CaKkIAGE COnTKUL>. ..... . d-k!b » o-<;5 . b-3o. 8- Jl . 

RECOKUSZ ^-14 

REEL 7-u* a-2<: 

309 <KEFEHEnCE ALbQKIIHM iUENTIFlEK> . .J'ittT'iH, 

111 <KEFEKENCE ASSIOnmEnT> 9-23 > e-i> 9-^3. 

191 <KEKEKENCE ExeRtSSiUN> . 9-23 J i-<t. i'- J4. ^-36.a- j. 9-i . 9-12» 

9-23.9"2ft»9-23» 
265 <HEFEHLNCE EXPRESSION LIST>. .............. .9-2i>9-.:3. 

264 <KEFEKtNCE 1TEM> . . , , 9-23JV-<:3. 

457 <REFEkENCE KFlAT10N> 9-12>9-12, 

463 <I^EFEKtNCE RCEAriUNAL> . .9-l<!;9-i2> 

192 <KEFEKENtE VAk1ABLE> . . ........ .9-2J>9-^3. 

REFERENCE 3-l> 7-39* 9-23 

RE&ISTEKS 5-7, b-ti 

446 <HELAT1UN> .9-l.i;9-ll. 

286 <KEl.ATlUhAL 0eEKAT0K> 3" 1 > 3- 1 . 0-40. 8-<t J. 9-i2. 

REMUTE ........ ^-16 

REMOVE T'iH, f'3b 

375 <kEPEaT f'AKAWLTtRS>. 0-40 J 7-25» a-40 » 

298 <HEPEAT eARl> 7-24 ; 7-24 . 7-«i7 , 

REPLACE 0-40 

074 ^REPLACE STATEMEnT>. . . 0-40 1 a-1 . O-hI . 

103 <K£PLA(.tMENT uPEKATUK> J-1 > 3- I . 7- J . r-i 1 » 7-39. 7-43. 0-3 . 

a-0. 9-2, 9-9.9-11.9-20. 9-23. 
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9-25 • 

RLStLT a-11 

117 <KtSE.f STATt.MtNT> , e-ii;a-ii.8-i2. 

RtSlDtNl ................. r-lb 

HLTN , , ^-16 

RETURN i-/, 5-16 

RtMiNO 6-2;^ 

134 <REWlNU STATEmENT> S-2?)8-20i.a-27'» 

372 <HtU«(> 9-2u»9-<i0, 

330 ^KQW UtSi(iNATUR> 9-20J9-k:0» 

HU«AUuHtSS ......................... 7-U 

ROWiNUSE .......................... 7-14 

SA«t 3-1. ^-16» 7'2Ut 7-2*» r-43 

046 <SAVt UK u«N>. .7-2'»;?-^4» 

048 <SiAVE fAMT> , 7'2'ii7'2>*t7-iQ, 

SAVEfACTuft .................. ?-l4 

SCALLLtf I ................... ,b-/» 5-13 

SCALERlvtHT .'3'f, b-i3 

SCAi.£KH»HTF .3-C» 5-U 

SCAtErtiafiTT ,^'f, 5-U 

SCAN ,, s s ,.,,.... s , s . s ,,-,,., 5 ,, , 8-40 

222 <SCAN COuNT> . 6-40 >a-40« 

146 <SCAN eAKT>. ...................... .8-4u;d-*0» 

075 <SCAN iTATEMENT> . , . 8-40{e-l »8-41 . 

SCANIN .5-r* :>-i4 



scANOur . 

SCANPAKITY 
StLF . . 

scnu . . 

SCMU . . 

SCRLI . . 

SCHEEn . 

StHF . . 



.5-/^# 5-16 

8-J3» 6-36 

5-lU» 5-li 

0-2 

5-U 

. 5-16 

5-U 

^-U 

5-*. 5-U 

. D-i3 
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iTtM f*6E 

SCRT ^-14 

170 <SEtOhD NAME> fitt7'2tt7'i5» 

SECONOHORD ^'f' 5*14 

SeCUREU • • 7'16 

SECORiTTTYPE ...... 7'lH> 7-15 

387 <SECURITYTYPE MNEMUNlC>, ,7'lbi7''i5, 

SECURITYUSE • 7-U> 7'15 

388 <SECUKnYOSE MNEM0N1C> 7'lbl7'lb» 

SEEK a-28 

135 <SEEK S,TATEMEnT> »-.£» J8-20»8-ii8, 

442 <SEPAHATUR> 3-lM-l> 

SkSUENCE • • 8-3:>' 0*36 

455 <SCUUENTlAL QPEHATQR> 3-Ua-l* 

SERIALNO • 7'm 

SET 8*11 

116 <SET STATEMENT> fl-li >8"1 1»8-12» 

313 <SI(iN> 4-3;m-3, 

173 <S1HPLE ARITHMETIC EXl'RESSION> . .9-2»9-2. 

182 <SlMPLt BOOLEAN EXPRESSION> 9-1119-11. 

281 <SIMPLE POINTER EXPKEaSION> 9-20jy-^0» 

315 <SIMPLt STRlN(i> • U'7Hf7, 

164 <SIHPLE VARIAdLE> • 5-2I5-1 .3-*:. r-<: J»6-a »B-40.8-«l . 

9-9. 

SINtttE ''*15. 7-16 

302 <SING4.t PICTURE CmAKACTER> 7-2h;7-24. 

007 <SlNttLE SPACE> .2-1 » 2-1 . 6-1 . 

SINGLEPACK , ....... ?"15 

SINT 5-17 

SIR • ^'15 

SISO 5-13 

SIZE 5-7, b-U 

SUEMQUE 7-l<t. 7-lS 

389 <SIZEMUOE MNfMONlO. • .7-1617-15, 

SIZEOfFStT . '"14 

SIZE2 '"1* 
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HtM r'htat 

^1^1'' •••••..•. ,.,.,, t • . t)'2S 

332 <bKIK> .9-^uiy-^O. 

301 <bKlP thAHAi;TLK> . .......,, ,7-2>*;r'd'i> 

353 <SLASrl> , Z-1 J .i-1 . J-1 , 9-2. 

SN(.i. 5-1*:, 3-13 

145 <iUuHtL> 3-'*u;s-<«U»e"41 ,8-«»i»8-'4«» 

144 <SUUKtt LiST> 8-4Uie-40» 

219 <bUUKLt PAHT> .8-4U;8-'»0» 

SI'A'-t 8-2S» a-2v 

003 <SPACt> 6-lJ3-l,6-l, 

<bHAtt iTATtHtNl> O-<;9;8-20»8-^9. 

136 <SHLtI«L tHARACTeK>, .......... .... .2-1J2-1* 

249 <i>HtClHtATinN> , . ,7'Z9(T'i9, 

169 <5PtClf KATlON f'6rtT> f'Z^ iT'^i » fi^, 

443 <SPtClHCATuH> 3-U3-U 

303 <SHtCiHtw>. , , .?-29J7-i:9. 

SfttU ,....,....,. 7-141. 7-lb 

390 <5Pt£u MNtMUNlC> .,,,..,.., , . , , •r-lblT'-lSj 

^'^'•^ s-n 

STACK 5-^, :j-q 

207 <5TACr SiZE> . ,8-l8»8-i8, 

STACKLK ,,,,,,,js.5sj,,,j,,,,,,,j,. 8-25 

STACKUVLKFLU 8-3i» 8*36 

STAtKUNULKFtOn ... 8-3b» 6-36 

STACrvlCIUK ,...,,. , , , 5-7. b-a 

STATE 7-14 

391 <iTATt MNtMUNlC> , ,7-lbJ?'-i5, 

009 <5TATtMtixT> 0-l;t,-l,7-iH,^-3g.7-J4. 8-1.8-81. 

0-32»8-3S»o-j6» 

STt-P ..........,.,., 3-1. 0-6 

319 <5ItK KArtT> . .8-8{a-8» 

SUf 5-14 

STUt- ^.f 

STUHtllLM ........................ ,<:>'(, b-17 
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ITtH rAbg 

254 <STMlNO> .,...» 4-7J4-1. <♦-/'. /-'♦3»8-40.a-44.y-2. 

437 <STKlNb dKACKET CHAKACTEH> • . . « • 2-iti'l, 

393 <STKlNta (,rlAKACTtM> .^"1 S<i-1 .4-8. 7-24» V-i 3. 

458 <STKlhvi KtLATION> 9-12IS)-12. 

STKlNiiPKuTCCT 6-3:3* 6-36 

STUFT tj-r. •3'lH 

320 <SUtiAKKAT D£:SIGNATUK> .9-V{'4-9> 

361 <SUt)AXHAY PARr>. .9-9;9-9. 

SUUSCxiULK A-4 

292 <&UUSCHier>. ..................... t)-<:!>b-^.V-i4. 

232 <SLlbSCHlHT LI5.T> . 's-<: > -j-Z. t)-5.'»-6. 9-9. 

360 <;aUbSCKXr'T PAkT> . .9-9;9-9. 

278 <SUBSCR1P1EU VAKIABLE> i-2 »5-2. /-/ , o-o. 0-.;5. B-4u.d-*»3. 

tJ"44.9-i^»»-l'».V-20. 

335 <SUbSCKIPTE:u hOKD VARiABLt> 9-2u»9-<:0. 

SUNOTHtAUY r-lt> 

SOPLK ............ 7'lb 

SXSN t>-15 

STST£MU1KECT0KT r-lt> 

SYSTEHUIHFILF . « . fib 

287 <TAttLE>. 6-4U ;6-4U. 6-44 . 

451 <TAtil.E MtMBERSHlP> 9-12 ; 9-1 1 . 9-i3> 

461 <rAULE PUiNTEK>. ............... . 9-l^> 9-12. 9-1 i. 9-14. 

TAPE 7-16 

taplrlelkecoru . ^'14 

TAPE7 r-16 

TAPE9 7-16 

tempukaky .......... . r-i6 

244 <TEKM> 9-2(9-2. 

151 <TCXT> « ,f-b{r'bi7'7 f 

THKU 0-6 

185 <THRU CLAUSE>. ..... ............ .6-6;6-8» 

273 <TIME> 6-ll]0-ll>6-l J.a-14> 

TIMEUOT ..... r-l6 

TIHER t)-^> b'17 
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"Tl^E • • 7-1^ 

195 <T0 ^■AKT> d-6Je-6. 

TUfi"'-'^ 5-?, 5-15 

TOPOFSfACK .......... 5-^. 5-17 

TO"*-" 5-^. 5-1? 

282 <TKAN5ftK PaRT> .a-4o>8-i»0. 

339 <TRANSl.ATt TAdLt>, .».....,.,,,,,,,. 8»a0 J e-'JU* B"«»3» 

TKANSMiSilONO •••............,.,. ?-U 

TKANSrtlSSlONS , ^.j^ 

T-^"*^ '/.'., .-1 

057 <TTPE> /-J9J/'-3.7-^»7-2V»?-J9. 

026 <fYPE Uti.LAKATiaN> . 7-39) 7-1 , 7-i9, 

177 <TYHE lULNTiFlEK>. ... ... .7-3^,7-^9, 

057 <TTPE Li6T> 7-3., 7-39. 

101 <rYHE eAHl> 7-39,7-39. 

^'^' 5-11 

245 <UNARt UPtRATOR> , ^ . .9-2,9-2. 

076 <UNCONUiTiONAL ITEKA7lON>. ........ .a-8,a-l. 

029 <UKCO«UITIONAL STATtMtNT>. 0-1,6-1.8-8. 

UNHNU 7.1^ 

337 <UN1TS> „_ - 

•"•■••••••••••.......«. . 0~<i 1 ) {]-<tU . 

392 <UNiTS MNt.MONlC> , .7-i6)7-i5, 

uNi^SLtn ^.1, 

^'^'■"^•^ 5-7. 5-15 

229 <UNSIGNEU INTEU£K> 4-3M-3. 7-ii , 7-^4, 7-39, 7-^3, 

421 <UNSIGNEU iNTtGEH LiSI> 8-40,8-40, 

314 <UNSI(iNtu NUMaEK> 4^3,4-3,9-2. 

UNTIL 3-1, a-a. 8-40 

UfOATE 7-15 

285 <UP1;ATE WUUnT> 8-41,8-40.8-42, 

217 <UPUATt PUlNTtH> 5-40, 8-4U,a-4l ,8-4/!, 8-43, 

284 <UPUAft VAHIAbLE> 8-40, 8-<tU, 8-42. 

USEUATt ^.j^ 

^^^'^'^ • ' 3-1, 7-34 

»ALv ••••..........,,.,,...,,.,,, a-38 
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VALUE 4*«t«><>>***i>*i«****** ^'^' '*2y» T-ti 

027 <VAtUt AKKAY uEtLAKATION> 7"*it7-lt 

102 <VAl.UE AKHAT lOfcNTlKItR> • 5-5 >5-i» ?-*3# 

060 <VALUE AKKAY PAHT HSr> t ,THSt7'<*3t 

327 <VAUUE UESI(iNATUH> . • 5*5 >5-l »9-i 1 . 

168 <W*l.UE fAKT> ?-29J7-2V»7"J4» 

059 <VALUE TYf'E> * 7-43»7-0^ 

263 <VAKIAbLt> 5-2 »5-l »9- J.9-i i .y-20,9-2 J»9-^5» 

VEKSION 7"14 

VERSIONUiRECTuRY . '"^5 

209 <VlSlaLt NAME IN0EX> .......... • • .8-10J8-18. 

WAIT . 8-^1 

274 <«An PARAMETER LIST> d-i I Jtt-U .8-U»8-l«. 

120 <HAIT STATEmEnT> e-lUU-ll.8-lJ.a-15. 8-16. 8-i2. 

MAlTANURESET 8-11 

121 KWAITANUHESET STATEMEnT> ...... .8-1 1 1 b-1 1 . B-li!.6-li. 8- U.8-15. 

8-16.8-17. 

202 <WAnANURESET-CUMPI.EX STATEMEnT> * • .8-1118-11. 

201 <WAITANUHESET-SIMPLE STATEMENT>. 8-1118-11. 

199 <«AITUNEVENT STATEMENT>, ......... 8-1 1 * 8-1 1 .e-li.8-U. 8-17. 

272 <WAIT0NEVENT-C0MPUEX STATEMENT> B-1 1 »a-l 1 .8-14.8-15. 

271 <HAlTdNE«ENT-SlMPLE STaT£M£NT> 8-ll>8-n. 

200 <»(AITUNnME STATEHENT> 8-1118-11.8-13. 

WHILE 3-1. 8-a. 8-40 

183 <WHILE PAKT> ........... .e-8>a-8. 

HMOi ^*^2 

WORD J"l' 7"39. 9-25 

334 <WORD ARRAY Raw> 9-20)9-20. 

112 <WORO ASSIGNMENT>, y-25 J 8-3.a-<4.9-^5. 

213 <«ORD tOUNT> f-3W-J,7-<4, 8-25. 8-30.8-31. 

174 <wORO tXPHESSlON> .9-25 J9-1 . 9-2.9-9.9-1 1 . 9*23. V-25. 

248 <WORO EXPRESSION LlST> ..«.*.... 9-25J9-<:5. 

368 <WORD INTRINSIC> 5-715-7. 

246 <WOrtD iTtM>. ........ 5-«>5-4.9-25. 

193 <WORD VARIABLE>. ... 9-25J5-17 .8-6.9-25. 
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ift-M r-Abt 

"fUNUS 7-U. 8-41 

HUKUSIACK , , , 5.7, s-b 

^Ki^ii o-/fo. s-21. a-2b. a-3u. a-32 

137 <»iHITt. iTATE^'fNT>, , O-iUJ B-2o» 8- J0» 

XALUliuCubE . , , , , , jf.is 

XAHiOLStMdOL ......... .... r-i3 

xFOWfHAiiCUUt f'1'3 

Xf OKTKANSYMbPL i'"15 

XiUN •3-T, 5-13 

XINU ....... .......,....,,,, 3-9 

Zftf* ,S-/^, 5-17 

ZLKUUiVlUt ....................... 8-35* 8-36 



